fornelasa escribió:Considero que si es posible hacerlo. ¿Podrías subir a este foro tu macro de Word?
Saludos, Federico.
copio las macros completas del documento, la ruta está puesta absoluta y la tengo que cambiar a relativa, pero eso es lo de menos.
Sub AutoOpen()
Dim nombreFichero As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\CARTAS\entrada_word"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile In colFiles
'Wscript.Echo objFile.Name
nombreFichero = objFile.Name
If (nombreFichero <> "Thumbs.db") Then
Call DocumentoAFicheros(nombreFichero)
End If
Next
ActiveWindow.Close
End Sub
Sub DocumentoAFicheros(nombreFichero)
'DOC
If Mid(nombreFichero, Len(nombreFichero) - 3, 4) = ".doc" Then
nombreFichero_txt = Replace(nombreFichero, ".doc", ".txt")
End If
If Mid(nombreFichero, Len(nombreFichero) - 3, 4) = ".DOC" Then
nombreFichero_txt = Replace(nombreFichero, ".DOC", ".txt")
End If
'DOCX
If Mid(nombreFichero, Len(nombreFichero) - 4, 5) = ".docx" Then
nombreFichero_txt = Replace(nombreFichero, ".docx", ".txt")
End If
If Mid(nombreFichero, Len(nombreFichero) - 4, 5) = ".DOCX" Then
nombreFichero_txt = Replace(nombreFichero, ".DOCX", ".txt")
End If
Documents.Open FileName:="C:\CARTAS\entrada_word\" & nombreFichero _
, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.SaveAs FileName:= _
"C:\CARTAS\salida_txt\" & nombreFichero_txt, FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _
LineEnding:=wdCRLF
ActiveWindow.Close
End Sub