Note: The other languages of the website are Google-translated. Back to English

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 Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (17)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi'n ffan o farddoniaeth. Roedd angen i mi drosi mwy na 700 o gyfansoddiadau gair i txt. Diolch i'ch is-reolwaith llwyddais i'w wneud mewn dim o amser.
Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fyddai'n bosibl darparu'r un cod pan fyddaf yn defnyddio'r Word diweddaraf ar Mac? Rwy'n cael y gwall Run-Time 5948 a phwyntiau dadfygio i'r adran hon: Gosod xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae hyn yn hynod o ddefnyddiol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut wnaethoch chi ei gael i weithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio i mi, unrhyw syniadau pam?
Oes angen i mi wneud hyn mewn dogfen Word o'r un ffolder rydw i am ei throsi neu unrhyw ddogfen Word newydd rydw i'n ei dechrau? -Ceisiais y ddau opsiwn ac nid oes yr un yn gweithio ond nid wyf hefyd yn cael unrhyw negeseuon gwall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio windows 10 a Microsoft office 2016
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newid xFileStr = Dir(xFolder & "\*.doc") i xFileStr = Dir(xFolder & "\*.docx") gan dybio bod gennych fformat ffeiliau geiriau mwy newydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod yn gweithio ond ar y diwedd yn rhoi 'Runtime error 91' i mi, mae gan rai o fy ffeiliau wrthrychau. Unrhyw syniad sut alla i drwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr! Wedi gweithio fel swyn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio'n gyflym ac yn berffaith ar ffolder yn llawn ffeiliau .docx. Yr wyf yn diolch i chi/
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r sgript yn gweithio'n wych i mi, ond dim ond ar gyfer un ffolder. A oes unrhyw ffordd i gynnwys yr holl is-ffolderi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn - roeddwn i'n mynd i godio rhywbeth fy hun pan feddyliais, "Hei efallai bod rhywun wedi gwneud hyn yn barod?" Roeddech chi wedi, a llawer yn fwy gain nag y byddwn wedi gwneud. Diolch i chi am eich gwaith caled.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y sgript uchod i swp-drosi dogfennau yn Corea, ond ni weithiodd y sgript. Pan wnes i flino newid yr amgodio, A all unrhyw un fy helpu gyda'r gwall hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi ANGEN iddynt drosi i ffeiliau testun amffiniedig a yw hyn yn bosibl o hyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hynny'n wledd! Diolch!
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am y post hwn. Pan fyddaf yn taro "rhedeg", rwy'n cael neges gwall:" Llunio Gwall: Gweithdrefn Allanol Annilys." Dyma a ydw i'n defnyddio'r doc neu'r estyniad docx (efallai nad yw'n gysylltiedig ond ceisiais y ddau.) Allwch chi helpu os gwelwch yn dda? Does gen i ddim syniad sut i ddefnyddio cod .... ac mae gwir angen trosi tunnell o docs. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Durga,
Mae'r cod yn gweithio'n dda yn fy achos i.
Gwnewch yn siŵr bod ffenestr y Modiwl (Cod) yn cynnwys y cod VBA a ddarperir yn y post yn unig.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir