Muito bom o link, te agradeço
Tenho apenas algumas duvidas:
Em que formato eu salvo o codigo???
No codigo de conversão ja esta definido que a conversao é de DOC para DOCx ??
Salvei o codigo abaixo com extensao .vbs
Sub ConverterFormatoNovo()
'Altere esse caminho para a pasta que contém os arquivos
Const sCaminho = "H:\Sistemas\Danilo\Transcricoes\Livro 2-B"
Dim fso As Object
Dim fld As Object
Dim fl As Object
Dim ff As WdSaveFormat
Dim doc As Document
'Utiliza-se a técnica de Late Binding para criar o objeto fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(sCaminho)
For Each fl In fld.Files
If Mid(fl.Name, Len(fl.Name) - 2, 3) = "doc" Then
Set doc = Documents.Open(fl.Path)
'O Documento contém macros?
Select Case doc.HasVBProject
Case True
ff = wdFormatXMLDocumentMacroEnabled
Case False
ff = wdFormatXMLDocument
End Select
doc.SaveAs2 Mid(doc.FullName, 1, Len(doc.FullName) - 4), FileFormat:=ff
doc.Close
End If
Next fl
End Sub
coloquei o arquivo dentro da ultima pasta no caso livro 2-B, mas deu erro de compilação
na linha 6 caracter 13.
Rodei em um servidor windows 2003 server.
Como faço para corrigir o problema?
