Как пакетно конвертировать документы Word в текстовый файл?
В этой статье рассказывается о том, как пакетно преобразовать все документы Word в определенной папке в отдельные файлы TXT в Word.
Пакетное преобразование документов Word в файлы txt с помощью VBA
Пакетное преобразование документов 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 кнопка. Смотрите скриншот:
После этого вы увидите, что все документы в выбранной папке сразу конвертируются в текстовые файлы. Смотрите скриншот:
Рекомендуемые инструменты для повышения производительности Word
Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции можно производить разово за секунды.
- Вставляйте сразу несколько изображений из папок в документ Word.
- Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
