Ez a cikk arról szól, hogyan lehet egy adott mappában lévő összes Word-dokumentumot kötegelt módon konvertálni a Word TXT-fájljainak elválasztására.
A Word dokumentumok kötegelt konvertálása txt fájlokká a VBA segítségével
Az alábbi VBA-kód segíthet egy adott mappában található összes Word-dokumentum egyszerre txt fájlokká konvertálásában. Kérjük, tegye a következőket.
1. A Word dokumentumban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a kód alatt a Modul ablakba.
VBA kód: A Word dokumentumok kötegelt konvertálása txt fájlokká
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. megnyomni a F5 gombot a kód futtatásához.
4. Ban,-ben Tallózás ablakban válassza ki a mappát, amely tartalmazza a txt fájlokká konvertálandó Word dokumentumokat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ekkor láthatja, hogy a kiválasztott mappában lévő összes dokumentum egyszerre konvertálódik txt fájlokká. Lásd a képernyőképet:
