Este artigo fala sobre como converter em lote todos os documentos do Word em uma pasta específica para separar arquivos TXT no Word.
Converta em lote documentos do Word em arquivos txt com VBA
O código VBA a seguir pode ajudar a converter todos os documentos do Word em uma pasta específica para arquivos txt de uma só vez. Faça o seguinte.
1. No documento do Word, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe copie o código abaixo para a janela Módulo.
Código VBA: conversão em lote de documentos do Word em arquivos 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. aperte o F5 chave para executar o código.
4. No procurar janela, selecione a pasta que contém os documentos do Word que você converterá em arquivos txt e clique no botão OK botão. Veja a imagem:
Então você pode ver que todos os documentos na pasta selecionada são convertidos em arquivos txt de uma vez. Veja a imagem:
