Ինչպե՞ս վերափոխել 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 բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...