Hogyan lehet kötegelten konvertálni a Word dokumentumokat txt fájlokká?
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
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:
Ajánlott Word-termelékenységi eszközök
Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt
- A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
- Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
- Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
- Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
- Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
