Ta članek govori o tem, kako paketno pretvoriti vse Wordove dokumente v določeni mapi v ločene datoteke TXT v Wordu.
Paketno pretvorite Wordove dokumente v datoteke txt z VBA
Spodnja koda VBA vam lahko pomaga pretvoriti vse Wordove dokumente v določeni mapi v datoteke txt hkrati. Naredite naslednje.
1. V Wordovem dokumentu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo v okno modula.
Koda VBA: paketno pretvorite Wordove dokumente v datoteke 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. Pritisnite F5 tipko za zagon kode.
4. V Ljubljani Brskanje izberite mapo, v kateri so Wordovi dokumenti, ki jih želite pretvoriti v datoteke txt, in kliknite OK . Oglejte si posnetek zaslona:
Nato lahko vidite, da se vsi dokumenti v izbrani mapi hkrati pretvorijo v datoteke txt. Oglejte si posnetek zaslona:
