Como converter em lote documentos do Word para ficheiros TXT?

Este artigo explica como converter em lote todos os documentos do Word de uma pasta específica em ficheiros TXT separados no Word.

Converter em lote documentos do Word para Arquivo TXT com VBA

---

Converter em lote documentos do Word para Arquivo TXT com VBA

O código VBA abaixo permite converter todos os documentos do Word numa pasta específica para ficheiros TXT de uma só vez. Siga os passos seguintes.

1. No documento do Word, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e copie o código abaixo para a janela do Módulo.

Código VBA: Converter em lote documentos do Word para Arquivo 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. Prima a tecla F5 para executar o código.

4. Na janela Procurar, selecione a pasta que contém os documentos do Word que pretende converter para ficheiro TXT e clique no botão OK. Veja a captura de ecrã:

Depois, verá que todos os documentos na pasta selecionada foram convertidos em ficheiros TXT de uma só vez. Veja a captura de ecrã: