У цій статті йдеться про те, як пакетно перетворити всі документи Word у певній папці на окремі файли TXT у програмі Word.
Пакетне перетворення документів Word у файли txt за допомогою VBA
Наведений нижче код VBA може допомогти перетворити всі документи Word у певній папці у файли txt одночасно. Будь ласка, виконайте наступне.
1. У документі Word натисніть клавішу інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте код нижче у вікно модуля.
Код 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, які ви конвертуєте у файли txt, і натисніть на OK кнопку. Дивіться знімок екрана:
Тоді ви зможете побачити, що всі документи у вибраній папці перетворюються одночасно у файли txt. Дивіться знімок екрана:
