Mae'r erthygl hon yn sôn am sut i swp-drosi pob dogfen Word mewn ffolder benodol i wahanu ffeiliau TXT yn Word.
Swp trosi dogfennau Word yn ffeiliau txt gyda VBA
Gall y cod VBA isod helpu i drosi'r holl ddogfennau Word mewn ffolder benodol i ffeiliau txt ar unwaith. Gwnewch fel a ganlyn.
1. Yn nogfen Word, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch y cod isod i mewn i ffenestr y Modiwl.
Cod VBA: Swp trosi dogfennau Word yn ffeiliau 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. Gwasgwch y F5 allwedd i redeg y cod.
4. Yn y Pori ffenestr, dewiswch y ffolder yn cynnwys dogfennau Word y byddwch chi'n eu trosi i ffeiliau txt, a chliciwch ar y OK botwm. Gweler y screenshot:
Yna gallwch weld bod yr holl ddogfennau mewn ffolder a ddewiswyd yn cael eu trosi'n ffeiliau txt ar unwaith. Gweler y screenshot:
