Os arquivos .doc, .xls e .ppt: Proprietários e não documentados (É necessário ter MS Office para abrir os arquivos) coma a conversão não será necessário ter o MS Office para abrir o arquivo, o arquivo poderá ser manipulada por programas desenvolvidos por qualquer um.
Podem ser abertos com o Office 2000, 2003 e XP, através do
Office Compatibility Pack
Para
converter seus arquivos antigos no novo formato, siga os passo abaixo:
1. Abra o
arquivo o arquivo que será convertido (Exe: um arquivo .doc);
2. No menu
“Opção” escolha “Salvar Como”, usando o formato “docx”, ou a opção “Converter”
do Word 2007.
Dessa forma o arquivo será convertido
para o formato “.docx”
Converter vários arquivo
Se você tiver muitos arquivos para converter, vamos lhe mostrar como
fazer isso convertendo vários arquivos de uma só vez. Para isso, vamos utilizar uma
ferramenta da Microsoft chamada Microsoft
Office Compatibility Pack e Microsoft Office Migration Planning Manager.
Vamos lhe mostrar o passo a passo para realizar essa
conversão:
Vide
os passos necessários para uma conversão em massa de doc para docx:
1.
Baixe e Instale o Microsoft
Office Compatibility Pack (Pacote
de Compatibilidade de Arquivos do Microsoft Office - Permite aos usuários do
Microsoft Office 2003 trabalharem com arquivos no novo formato do Microsoft
Office 2007/2010)
3.
Execute o arquivo Planejamento Office
Manager (OMPM) e extrai o conteúdo para algum diretório (exemplo: C:\Temp);
4. Vá
para o diretório onde foi extraído o conteúdo OMPM (no exemplo foi:
C:\temp\Tools);
5. Abra
o arquivo “ofc.ini” e edite as seguintes linhas:
FullUpgradeOnOpen =
1
FLDR =
C:\DicasQueFunfa\Meus Arquivos\Docs 'Aqui seria os arquivos .doc que
deseja converter
DestinationPathTemplate =
C:\TEMP\Office\Convertidos 'Local para slvar os arquivos convertidos'
Seu
arquivo ofc.ini deve ser algo parecido com isto:
[Run]
;
LogDestinationPath: O Caminho onde os arquivos de log serão gravados
LogDestinationPath
= C:\temp\OMPM\ OFCLogs
;TimeOut:
Um limite em segundos para a conversão de um único arquivo. (padrão 300
segundos)
TimeOut = 300
[ConversionOptions]
;FullUpgradeOnOpen:
se definido como 1, documentos do Word será totalmente convertido para o
formato OpenXML
;Se
definido como 0 (padrão), os documentos do Word serão salvos no formato OpenXML
em modo de compatibilidade
;Não
se aplica a arquivos do Excel ou PowerPoint.
FullUpgradeOnOpen
= 1
CABLogs
= 1
MacroControl
= 0
[FoldersToConvert]
FLDR
= C:\DicasQueFunfa\Meus Arquivos\Docs 'Aqui seria os arquivos .doc que
deseja converter
[ConversionInfo]
SourcePathTemplate
= * \ * \ * \
DestinationPathTemplate
= C:\TEMP\Office\Convertidos 'Local para slvar os arquivos convertidos
6. Abra
o prompt de comando e execute o arquivo ofc.exe do diretório
Tools (no meu caso ficaria assim: C:\temp\Tools\ofc.exe), você deverá receber uma
mensagem como esta:
C:\TEMP\Office\Tools>ofc.exe
Microsoft Office File Converter version
12.0.4518.1032
Copyright (c) 2006 Microsoft
Corporation. All rights reserved.
Automatically converts Office documents to
2007 Microsoft Office system file format based on settings in the OFC.INI
control file.
Converting
files from folder C:\DicasQueFunfa\Meus Arquivos
Error:
Unknown file type: C:\DicasQueFunfa\Meus Arquivos\Acessar o Gerenciador
Financeiro BB.odt
Converting:
C:\DicasQueFunfa\Meus Arquivos\Configurar THX1112 no Smartphone - Android.doc
Writing converted file to:
Converting:
C:\DicasQueFunfa\Meus Arquivos\Transferencia Fácil do Windows.doc Writing
converted file to: C:\TEMP\Office\Convertidos\Transferencia Fácil do
Windows.docx
Error:
Unknown file type: C:\DicasQueFunfa\Meus Arquivos\Transferência de dados do XP
para Windows 7 - WET-v1.1.odt
Error:
Unknown file type: C:\DicasQueFunfa\Meus Arquivos\Tutorial para TrueCrypt.docx
Error: Unknown file type:
C:\DicasQueFunfa\Meus Arquivos\WET.odt
Start: 2013-08-15 12:01:53
End: 2013-08-15 12:02:10
Total time used to convert files (sec): 17
Total number of files processed: 17
Total number of files converted: 17
Conversion Complete.
C:\TEMP\Office\Tools>
Os
arquivos convertidos serão salvos no diretório:
C:\TEMP\Office\Convertidos
(DestinationPathTemplate)
Observações:
Obs-1
Utilizado
esse modelo de conversão, é possível converte os arquivos dentro de pastas e
subpastas. Porém, é suportado apenas até 9 (nove) subpastas; sem contar a pasta
principal.
Por
exemplo: DestinationPathTemplate= C:\Temp\Pasta1\Pasta2\Pasta3\Pasta4\Pasta5\Pasta6\Pasta7\Pasta8\Pasta9\
- É valido.
Se
DestinationPathTemplate= C:\Temp\Pasta1\Pasta2\Pasta3\Pasta4\Pasta5\Pasta6\Pasta7\Pasta8\Pasta9\Pasta10\
- Não é valido, não vai funcionar.
Obs-2
Os
arquivos “.docx, .xlsx e .pptx”, geralmente são menores que os arquivos “.doc,
.xls e .ppt”, cerca de 70%. Todavia, isso não ocorre no processo de conversão.
Na conversão o ganho é “pequeno”, aproximadamente de 10 a 15% de redução no tamanho do arquivo.
Obs-3
O processo mencionado acime, não é aconselhável para usuários finais. Para
executar o procedimento mencionado acima é necessário ter uma certa habilidade
técnica.
Outras
Solução para converter arquivos “.Doc” para “.Docx”:
Esse
procedimento é de fácil execução – aconselhável para usuários.
1. Abra o “Bloco de Notas” e cole o código abaixo:
'--------------------------------------
'Script para converter arquivos .doc para .docx
'14/08/2013
'by
www.DicasQueFunfa.Com.br
'--------------------------------------
Dim Cam
bRecursive
= False
Cam =
Inputbox("Informe o local dos Arquivos! Ex: C:\temp\MeusDoc
","Converte Documento do MS Word (.Doc para .Docx) - v1.0 by
DicasQueFunfa")
if Cam = "" then
Msgbox "Erro ID:01
- VOCE NAO INFORMOU O LOCAL DOS ARQUIVOS. O SCRIPT SERA ENCERRADO! - by
www.DicasQueFunfa.Com.br"
Msgbox "Erro ID:02
- O LOCAL NÃO EXITE- by www.DicasQueFunfa.Com.br"
Wscript.Quit
End if
sFolder = Cam
Set oFSO =
CreateObject("Scripting.FileSystemObject")
Set oWord =
CreateObject("Word.Application")
oWord.Visible = True
Set oFolder =
oFSO.GetFolder(sFolder)
ConvertFolder(oFolder)
oWord.Quit
Sub ConvertFolder(oFldr)
For Each oFile In oFldr.Files
If LCase(oFSO.GetExtensionName(oFile.Name))
= "doc" Then
Set oDoc = oWord.Documents.Open(oFile.path)
oWord.ActiveDocument.SaveAs oFile.path & "x", 12
oDoc.Close
End If
Next
If bRecursive Then
For Each oSubfolder In oFldr.Subfolders
ConvertFolder oSubfolder
Next
End If
End Sub
2. Salve com o arquivo com a extensão .vbs “exe: ConverterDocParaDocx.vbs”
3. Execute o ConverterDocParaDocx.vbs, será
exibida a seguinte janela:
4. Digite o local dos arquivos que serão convertido e
clicar em “Ok”
Os arquivos são convertido no mesmo local dos
originais
Observação:
Esse Script tem um ganho em cerca de +3% comparado com o procedimento anterior
Analise Final
O processo de conversão de arquivos “.doc, .xls e .ppt” para “.docx, .xlsx e .pptx” é extremamente delicado.
Esses arquivos em sua maioria podem conter: macros, complementos, rotinas de
execução...
Antes de
realizar qualquer intervenção, é aconselhável envolver as partes envolvidas e
estudar caso a caso.
Não
aconselho conversão em massa, o ganho de em espaço em rede não justifica o
risco. O interessante seria apresentar as ferramentas de conversões para os
usuários, e eles iriam decidir se querem converter ou não.
Referências:
