Word - Macro en word. o Excel

CD C:\Docu-DOC

DIR *.DOC /B >C:LISTA.TXT

Sub Doc_To_rtf()

'

' Macro1 Macro

'

'

    Open "C:\Lista.txt" For Input As #1

   DirOrig$="C:\Docu-Doc\"

   DirDest$="C:\Docu-Ans\"

    While Not EOF(1)

        Input #1, Orig$

        If Dir(Orig$) <> "" Then

            Dest$ = Left$(Orig$, Len(Orig$) - 5) + ".rtf"  ' --- quita .docx y añade .rtf

            Documents.Open FileName:=DirOrig$+Orig$, ConfirmConversions:= _

                False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _

                PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

                WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

            ActiveDocument.SaveAs FileName:=DirDest$+Dest$, FileFormat:= _

                wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _

                WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

                 SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

                False

            ActiveDocument.Close

        End If

    Wend

    Close

End Sub