Sut i swp-drosi dogfennau Word yn ffeil txt?
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
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:
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith...
✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...
🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...