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

Ինչպե՞ս վերափոխել Word փաստաթղթերը txt ֆայլի:

Այս հոդվածում խոսվում է այն մասին, թե ինչպես խմբաքանակի վերափոխել Word- ի բոլոր փաստաթղթերը որոշակի թղթապանակում ՝ Word- ում TXT ֆայլերն առանձնացնելու համար:

Խմբաքանակը Word փաստաթղթերը VBA- ի հետ վերափոխեք txt ֆայլերի


Խմբաքանակը Word փաստաթղթերը VBA- ի հետ վերափոխեք txt ֆայլերի

Ստորև ներկայացված VBA կոդը կարող է օգնել փոխել Word- ի բոլոր փաստաթղթերը որոշակի պանակում միանգամից txt ֆայլերի: Խնդրում եմ, արեք հետևյալ կերպ.

1. Word փաստաթղթում սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևի կոդը Մոդուլի պատուհանում:

VBA կոդ. Խմբաքանակը Word փաստաթղթերը վերափոխում է 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. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Մեջ Թերթել պատուհանը, ընտրեք պանակը, որը պարունակում է Word փաստաթղթեր, որոնք կվերածեք txt ֆայլերի և կտտացրեք այն OK կոճակ Տեսեք,

Դրանից հետո դուք կարող եք տեսնել, որ ընտրված թղթապանակում բոլոր փաստաթղթերը միանգամից վերափոխվում են txt ֆայլերի: Տեսեք,


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (17)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պոեզիայի սիրահար եմ: Ինձ անհրաժեշտ էր փոխակերպել ավելի քան 700 բառային կոմպոզիցիաներ txt-ի: Ձեր ենթածրագրի շնորհիվ ինձ հաջողվեց դա անել կարճ ժամանակում:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է արդյոք տրամադրել նույն կոդը, երբ ես օգտագործում եմ վերջին Word-ը Mac-ում: Ես ստանում եմ Run-Time 5948 սխալը և վրիպազերծման կետերը այս հատվածում. Սահմանել xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Սա չափազանց օգտակար է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս այն գործի դրեցիր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում ինձ մոտ, ինչո՞ւ:
Արդյո՞ք դա պետք է անեմ word փաստաթղթում այն ​​նույն թղթապանակից, որը ցանկանում եմ փոխարկել կամ որևէ նոր Word փաստաթղթում, որը ես սկսում եմ: -Փորձել եմ երկու տարբերակներն էլ, և ոչ մեկը չի աշխատում, բայց ես նաև սխալի հաղորդագրություն չեմ ստանում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ Windows 10 և Microsoft Office 2016
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխեք xFileStr = Dir(xFolder & "\*.doc") xFileStr = Dir(xFolder & "\*.docx"), քանի որ ես ենթադրում եմ, որ դուք ունեք բառային ֆայլերի ավելի նոր ձևաչափ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, կոդը աշխատում է, բայց վերջում ինձ տալիս է «Գործարկման ժամանակի սխալ 91», իմ որոշ ֆայլեր ունեն օբյեկտներ: Կա՞ գաղափար, թե ինչպես կարող եմ դա շտկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ! Աշխատել է հմայքի պես:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատել է արագ և կատարյալ .docx ֆայլերով լի թղթապանակում: Ես շնորհակալ եմ ձեզ/
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սցենարն ինձ համար հիանալի է աշխատում, բայց միայն մեկ թղթապանակի համար: Կա՞ որևէ միջոց՝ ներառելու բոլոր ենթաթղթապանակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն դրա համար. ես պարզապես պատրաստվում էի ինքս ինչ-որ բան կոդավորել, երբ մտածեցի. «Հեյ, գուցե ինչ-որ մեկն արդեն արել է դա»: Դուք ունեիք, և ավելի նրբագեղ գործարք, քան ես կանեի: Շնորհակալություն ձեր քրտնաջան աշխատանքի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ վերը նշված սկրիպտը՝ փաստաթղթերը կորեերենով խմբաքանակ փոխակերպելու համար, բայց սցենարը չի աշխատում: Երբ ես հոգնեցի փոխել կոդավորումը, կարո՞ղ է որևէ մեկը օգնել ինձ այս սխալի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ԻՆՁ ՊԵՏՔ Է, որ դրանք փոխարկվեն սահմանազատված տեքստային ֆայլերի, դա դեռ հնարավոր է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա լավ արդյունք տվեց: Շնորհակալություն
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շնորհակալություն այս գրառման համար: Երբ ես սեղմում եմ «վազել», ես սխալի հաղորդագրություն եմ ստանում. Սա այն է, թե արդյոք ես օգտագործում եմ doc կամ docx ընդլայնումը (գուցե կապ չունի, բայց ես փորձել եմ երկուսն էլ:) Խնդրում եմ, կարո՞ղ եք օգնել: Ես գաղափար չունեմ, թե ինչպես օգտագործել կոդը… և իսկապես պետք է փոխարկեմ մի տոննա փաստաթղթեր: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Durga,
Կոդն իմ դեպքում լավ է աշխատում։
Please make sure that the Module (Code) window contains only the VBA code provided in the post.
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր