Ինչպե՞ս փաստաթուղթը բառով բաժանել բազմաթիվ փաստաթղթերի:
Եթե ունեք զանգված բառերի փաստաթուղթ, որը դուք պետք է բաժանեք բազմաթիվ փաստաթղթերի, մի քանի րոպե տրամադրեք այս ձեռնարկը կարդալուն: Այս ձեռնարկը ձեզ ցույց կտա փաստաթուղթը բազմաթիվ փաստաթղթերի բաժանելու երկու եղանակ:
- Split Word փաստաթուղթը VBA- ի հետ սահմանված սահմանաչափի միջոցով
- Split Word փաստաթուղթը էջ առ VBA- ի հետ
- Split Word փաստաթուղթը վերնագրով / էջ / հատվածի ընդմիջում / էջի ընդհատում `օգտագործելով Kutools for Word
Split Word փաստաթուղթը VBA- ի հետ սահմանված սահմանաչափի միջոցով
Փոխանակ փաստաթուղթը ձեռքով բաժանելու բազմաթիվ փաստաթղթերի, այս մեթոդը կներկայացնի VBA ՝ Word- ի փաստաթուղթը բաժանելու համար Word- ում նշված սահմանազատիչը: Խնդրում ենք անել հետևյալը.
1. Մամուլ Alt + F11 միասին ստեղներ ՝ Microsoft Visual Basic հավելվածի համար պատուհանը բացելու համար;
2: Սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք VBA կոդի տակ ՝ նոր բացվող Մոդուլի պատուհանում:
VBA. Բաժանարար Word- ի փաստաթուղթը բազմակի փաստաթղթերի
Sub SplitNotes(delim As String, strFilename As String) Dim doc As Document Dim arrNotes Dim I As Long Dim X As Long Dim Response As Integer arrNotes = Split(ActiveDocument.Range, delim) Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4) If Response = 7 Then Exit Sub For I = LBound(arrNotes) To UBound(arrNotes) If Trim(arrNotes(I)) <> "" Then X = X + 1 Set doc = Documents.Add doc.Range = arrNotes(I) doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000") doc.Close True End If Next I End Sub Sub test() 'delimiter & filename SplitNotes "///", "Notes " End Sub
3. Այնուհետեւ կտտացրեք Վազում կոճակը կամ սեղմեք F5 ստեղնը ՝ VBA- ն կիրառելու համար:
4, Microsoft Word փաստաթղթից դուրս գալու համար սեղմեք Այո կոճակը ՝ առաջ գնալու համար:
Նշում:
(1) Համոզվեք, որ ձեր սահմանազատիչը ավելացրեք նույնը, ինչ որ "///" փաստաթղթի ենթաթեստում `տեքստի յուրաքանչյուր բաժնի միջև, որը ցանկանում եք առանձնացնել: Բացի այդ, դուք կարող եք փոխել "///" ձեր սահմանը բավարարելու համար սահմանազատողներին:
(2) Դուք կարող եք փոխել փաստաթղթերը «Նշումներ» ենթաթեստում ՝ ձեր պահանջներին համապատասխան:
(3) Եվ պառակտող փաստաթղթերը կպահվեն նույն տեղում ՝ բնօրինակ ֆայլով:
(4) Ձեզ հարկավոր չէ բնօրինակ ֆայլի վերջում սահմանազատիչ ավելացնել, եթե դա անեք, պառակտումից հետո դատարկ փաստաթուղթ կլինի:
Split Word փաստաթուղթը էջ առ VBA- ի հետ
Ահա ևս մեկ VBA, որը կօգնի ձեզ արագ Word- ի մեկ փաստաթուղթ բազմապատկել Word- ով էջում: Խնդրում ենք անել հետևյալը.
1. Մամուլ Alt + F11 միասին ստեղներ ՝ Microsoft Visual Basic հավելվածի համար պատուհանը բացելու համար;
2: Սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք VBA կոդի տակ ՝ նոր բացվող Մոդուլի պատուհանում:
VBA. Փաստաթուղթը բաժանեք մի քանի փաստաթղթի ՝ ըստ Word– ի էջի
Sub SplitIntoPages() Dim docMultiple As Document Dim docSingle As Document Dim rngPage As Range Dim iCurrentPage As Integer Dim iPageCount As Integer Dim strNewFileName As String Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _ flicker a bit. Set docMultiple = ActiveDocument 'Work on the active document _ (the one currently containing the Selection) Set rngPage = docMultiple.Range 'instantiate the range object iCurrentPage = 1 'get the document's page count iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) Do Until iCurrentPage > iPageCount If iCurrentPage = iPageCount Then rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page) Else 'Find the beginning of the next page 'Must use the Selection object. The Range.Goto method will not work on a page Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 'Set the end of the range to the point between the pages rngPage.End = Selection.Start End If rngPage.Copy 'copy the page into the Windows clipboard Set docSingle = Documents.Add 'create a new document docSingle.Range.Paste 'paste the clipboard contents to the new document 'remove any manual page break to prevent a second blank docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 'build a new sequentially-numbered file name based on the original multi-paged file name and path strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'save the new single-paged document iCurrentPage = iCurrentPage + 1 'move to the next page docSingle.Close 'close the new document rngPage.Collapse wdCollapseEnd 'go to the next page Loop 'go to the top of the do loop Application.ScreenUpdating = True 'restore the screen updating 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub
3. Այնուհետեւ կտտացրեք Վազում կոճակը կամ սեղմել F5 VBA կիրառելու բանալին:
Նշում: Բաժանող փաստաթղթերը կպահվեն նույն տեղում ՝ բնօրինակ ֆայլով:
Split Word փաստաթուղթը վերնագրով / էջ / հատվածի ընդմիջում / էջի ընդհատում `օգտագործելով Kutools for Word
Եթե Word- ի համար տեղադրել եք Kutools, կարող եք կիրառել այն պառակտում գործառույթը `մեկ փաստաթուղթը հեշտությամբ բաժանելու բազմաթիվ փաստաթղթերի` ըստ էջի, վերնագրի, հատվածի ընդմիջման կամ էջի ընդմիջման, որքան անհրաժեշտ է Word- ում:
Kutools բառի համար հարմար լրացում է `ձեր աշխատանքը հեշտացնելու և բառի փաստաթուղթը մշակելու ձեր ունակությունը բարձրացնելու համար: 60 օրվա անվճար փորձարկում: Ստացիր այն հիմա!1.Սեղմել Kutools Plus > պառակտում հնարավորություն ընձեռել պառակտում առանձնահատկություն.
2, Էկրանի բացման պառակտման երկխոսությունում կարող եք անել հետևյալը.
(1) Ընտրեք պառակտման ճանապարհը Բաժանվել է բացվող ցուցակ:
Այս առանձնահատկությունն աջակցում է բաժանման 6 եղանակի. Վերնագիր 1, էջերի ընդհատումներ, հատվածների ընդմիջումներ, էջեր, յուրաքանչյուր n էջ և էջի հարմարեցված տիրույթ, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.
(2) Կտտացրեք այն կոճակին Թերթել կոճակ հստակեցնել նպատակակետի պանակը, որի մեջ կփրկեք պառակտված փաստաթղթերը.
(3) Մուտքագրեք հիմնաբառ ՝ որպես նոր փաստաթղթերի անվանումների նախածանց Փաստաթղթի նախածանց տուփ:
Հուշում.
(1) Եթե նշեք, որ ընթացիկ փաստաթուղթը բաժանվում է Յուրաքանչյուր n էջ, դուք պետք է նշեք համարը Յուրաքանչյուր n էջ տուփ;
(2) Եթե դուք նախընտրում եք բաժանել ընթացիկ փաստաթուղթը ըստ հատուկ էջի տիրույթների, ապա հարկավոր է մուտքագրել ստորև նշված ստորակետերով բաժանված էջերը էջ տուփ, օրինակ, տուփի մեջ մուտքագրեք 1, 3-5, 12 տիպը:
3. Սեղմեք Ok կոճակը ՝ պառակտումը սկսելու համար:
Ապա ընթացիկ փաստաթուղթը բաժանվում է նշված պառակտման եղանակով, և նոր փաստաթղթերը զանգվածաբար կպահվեն նպատակակետի պանակում:
Ներդիրներով զննում և խմբագրում բազմաթիվ Word փաստաթղթեր ՝ Firefox, Chrome, Internet Explore 10:
Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի վեբ էջեր դիտելու և դրանց միջև փոխելու միջոցով ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Word փաստաթղթեր մեկ Word պատուհանում և հեշտությամբ անցնել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին: Կտտացրեք ամբողջական գործառույթների անվճար փորձաշրջանի համար:
Հարաբերական հոդվածներ.
Բառի արտադրողականության առաջարկվող գործիքներ
Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը
- Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
- Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
- Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
- Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
- Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...