Tá an t-alt seo ag caint ar conas gach doiciméad Word a thiontú i bhfillteán ar leith chun comhaid TXT a scaradh i Word.
Baisc doiciméid Word a thiontú go comhaid txt le VBA
Is féidir leis an gcód VBA thíos cuidiú le gach doiciméad Word i bhfillteán ar leith a thiontú go comhaid txt ag an am céanna. Déan mar a leanas le do thoil.
1. I ndoiciméad Word, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos an cód isteach i bhfuinneog an Mhodúil.
Cód VBA: Baisc doiciméid Word a thiontú go comhaid 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. Brúigh an F5 eochair chun an cód a rith.
4. Sa Brabhsáil fuinneog, roghnaigh an fillteán tá cáipéisí Word a athróidh tú go comhaid txt, agus cliceáil ar an OK cnaipe. Féach an pictiúr:
Ansin feiceann tú go ndéantar gach doiciméad san fhillteán roghnaithe a thiontú go comhaid txt ag an am céanna. Féach an pictiúr:
