Como converter em lote documentos do Word para arquivo txt?
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
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:
Ferramentas de produtividade de palavras recomendadas
Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo
- Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
- Insira várias imagens em pastas em um documento do Word de uma vez.
- Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
- Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
- Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
