¿Cómo convertir documentos de Word a archivos TXT por lotes?

Este artículo explica cómo convertir en lotes todos los documentos de Word de una carpeta específica en archivos TXT independientes mediante Word.

Convertir documentos de Word por lotes a Archivo TXT con VBA

---

Convertir documentos de Word por lotes a Archivo TXT con VBA

El siguiente código VBA le permite convertir todos los documentos de Word de una carpeta específica a archivos TXT de forma masiva. Siga estos pasos.

1. En un documento de Word, pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y copie el siguiente código en la ventana del módulo.

Código VBA: Convertir documentos de Word por lotes a Archivo TXT

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

3. Pulse la tecla F5 para ejecutar el código.

4. En la ventana Examinar, seleccione la carpeta que contiene los documentos de Word que desea convertir a archivo TXT y haga clic en el botón Aceptar. Vea la captura de pantalla:

A continuación, verá que todos los documentos de la carpeta seleccionada se han convertido simultáneamente a archivos TXT. Consulte la captura de pantalla: