В этой статье рассказывается о том, как пакетно преобразовать все документы Word в определенной папке в отдельные файлы TXT в Word.
Пакетное преобразование документов Word в файлы txt с помощью VBA
Приведенный ниже код VBA может помочь преобразовать все документы Word в определенной папке в файлы txt сразу. Пожалуйста, сделайте следующее.
1. В документе Word нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > модуль, затем скопируйте приведенный ниже код в окно модуля.
Код VBA: пакетное преобразование документов Word в файлы 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. нажмите F5 ключ для запуска кода.
4. в Выполнить в окне выберите папку, содержащую документы Word, которые вы конвертируете в текстовые файлы, и щелкните значок OK кнопка. Смотрите скриншот:
После этого вы увидите, что все документы в выбранной папке сразу конвертируются в текстовые файлы. Смотрите скриншот:
