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

Ինչպե՞ս փաստաթուղթը բառով բաժանել բազմաթիվ փաստաթղթերի:

Եթե ​​ունեք զանգված բառերի փաստաթուղթ, որը դուք պետք է բաժանեք բազմաթիվ փաստաթղթերի, մի քանի րոպե տրամադրեք այս ձեռնարկը կարդալուն: Այս ձեռնարկը ձեզ ցույց կտա փաստաթուղթը բազմաթիվ փաստաթղթերի բաժանելու երկու եղանակ:


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 պատուհանում և հեշտությամբ անցնել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին: Կտտացրեք ամբողջական գործառույթների անվճար փորձաշրջանի համար:
Firefox- ով մեկ պատուհանում զննեք բազմաթիվ բառերի փաստաթղթեր


Հարաբերական հոդվածներ.



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

 

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

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (45)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես փորձում եմ բաժանել փաստաթուղթը word փաստաթուղթը՝ օգտագործելով վերը նշված VB կոդը, այն բաժանվում է՝ հեռացնելով բոլոր պատկերները և զետեղված օբյեկտները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ Դամոյի նման խնդիր: Ես սկսեցի մեծ ֆայլից՝ բազմաթիվ ներկառուցված բովանդակության վերահսկիչներով: Երբ ես բաժանեցի իմ Word ֆայլը, օգտագործելով VB կոդը, բովանդակության վերահսկիչները բոլորը վերածվեցին սովորական տեքստի: Կա՞ որևէ տարբերակ ֆայլը բաժանելու առանց բնօրինակի ձևաչափումը կորցնելու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ. Ինչպե՞ս կարող եմ .doc-ը բաժանել ոչ թե մեկ էջ մեկ փաստաթղթի համար՝ օգտագործելով այս սկրիպտները: Օրինակ՝ 10 կամ 5 էջ յուրաքանչյուր փաստաթղթի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի թիմ, VBA for Splitting document into multiple one-paged document լավ է աշխատում, բայց խնդիրն այն է, որ տրոհված փաստաթղթերը չունեն աղյուսակի ձևաչափեր: Նախապես շնորհակալություն, եթե կարողանամ ստանալ մակրոները, որպեսզի հիմնական փաստաթղթի աղյուսակային ձևաչափերը չխախտվեն բաժանված փաստաթղթերում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար, շնորհակալություն: Իմ բնօրինակ փաստաթուղթը դրված էր «միայն կարդալու» համար: Սա նոր փաստաթղթերի մեջ չի փոխանցվում: Սա հնարավո՞ր է ավելացնել։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Kutools-ը Word-ի համար չի աշխատում միայն կարդալու փաստաթղթերի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցավոք, ես չեմ կարող բաժանել էջերը Kutools-ով: Ինչ կարող եմ անել? Ես ստանում եմ այս սխալի հաղորդագրությունը. Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException. Das angegebene Pfadformat wird nicht unterstützt: bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath.OPcessIsmissionlPath.Opcess. AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess մուտք, String[] pathList, Boolean checkFor.Path. InternalCreateDirectoryHelper (Տողերի ուղի, Բուլյան ստուգիչՀոսթ) bei System.IO.Directory.CreateDirectory(String path) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object “ , EventArgs. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bei System.Windows.F orms.Control.WmMouseUp(Message& m, MouseButtons կոճակ, Int32 կտտացնում) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Forms.Win Button.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.NativeWindows(WindowsCallindows. IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կենսաթոշակառուի համար չափազանց դժվար է հասկանալ, թե ինչ է պատահել Windows XNUMX-ի հին եղանակով, այդ ծրագրին այնքան հեշտ էր հետևել մեզ՝ տարեցներիս համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր մակրոն աշխատում է ԻՍԿԱՊԵՍ լավ, այնուամենայնիվ, ես պահանջում եմ, որ բաժանված փաստաթղթերը պահպանեն իրենց նեղ լուսանցքները և երկու սյունակների դասավորությունը: Ավելի շատ բախտի բերումով, քան դատողությամբ(!), ինձ հաջողվեց ձեռքով հասնել դրան, և վերջնական արդյունքը ճիշտ այնպես, ինչպես պահանջում էի: Այնուհետև ես օգտագործեցի մակրո ձայնագրիչը, բայց չունեմ Word VBA-ի իմացություն՝ դրան հասնելու համար ձայնագրված կոդը փոխելու համար: Կարող եք օգնել? Նախապես շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի առաջին բաժանված փաստաթղթի կոդը, և այն չստացվեց: Այն ասում էր, որ այն բաժանում է երեք մասի, բայց դա չի արել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջին VBA-ն կբաժանի ընթացիկ փաստաթուղթը «///» սահմանազատիչով: Ձեր փաստաթղթում ավելացրե՞լ եք «///» բաժանարար բաժանարարը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մոռացիր, մի քանի անգամ փորձեցի թվերով տառերով, ինչը չստացվեց, հետո տեսա, որ ջնջել է իմ մեկնաբանությունները։ Պարզապես նշեմ, որ առաջին ծածկագիրը ինձ մոտ չաշխատեց, այն ասում էր, որ փաստաթուղթը բաժանում է երեք մասի, բայց ոչ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞ ինչպես փոխել ֆայլերի անվանումը հիմնականը բաժանելուց հետո, ես ուզում եմ անունները փոխել ըստ ֆայլի վերնագրի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես արեցի VBA կոդը. փաստաթուղթը բաժանեցի մի քանի փաստաթղթերի՝ ըստ սահմանազատողի, այն բաժանում է փաստաթուղթը, բայց, ցավոք, գրաֆիկները ջնջվում են, ինչպես նաև ֆորմատավորումը: Սրան լուծում կա՞։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն մակրո կոդի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա շատ օգտակար էր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք պարզապես խնայեցիք ինձ շատ ժամանակ, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Thanks!

Մի հարց ունե՞ք բոլոր բաժանված փաստաթղթերը PDF-ի մեջ պահելու գաղափար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ «Split Word Document By Page With VBA» բաժնի կոդը: Այն աշխատեց փաստաթղթերը բաժանելու համար, բայց խաթարեց ձևաչափումը, ինչի արդյունքում այն, ինչ պետք է լիներ 2 էջերում, հայտնվեր 5-ի փոխարեն: Ես խաղում էի ծածկագրի հետ և վերջում լուծում գտա:


Ես փոխարինեցի այս տողը. docSingle.Range.Paste «տեղադրեք clipboard բովանդակությունը նոր փաստաթղթում

այս տողով՝ docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Հուսով ենք, որ սա կօգնի ձեզանից ոմանց, ովքեր ֆորմատավորման խնդիրներ են ունեցել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ «Split Word Document By Page With VBA» բաժնի կոդը: Ինչպե՞ս պետք է փոփոխեմ կոդը՝ բոլոր նոր ֆայլերում բնօրինակ վերնագիրը պահպանելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես անհատական ​​միաձուլման հավելումները
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Word-ի Kutools-ի Split (Փաստաթղթի) հատկանիշը կարող է օգնել օգտվողներին բաժանել Word փաստաթուղթը վերնագրով 1, էջի ընդմիջում, հատվածի ընդմիջում կամ էջ:
Բացի այդ, Kutools-ը Word-ի համար ներառում է նաև Միաձուլման գործառույթ՝ մի քանի Word փաստաթղթերը մեկի մեջ միացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է բաժանեմ փաստաթուղթը՝ օգտագործելով էջի տիրույթը: Օրինակ, ես ուզում էի մեկ այլ փաստաթղթում բաժանել 1-ից 10 էջ: ինչպես կարող եմ դա անել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես նույն հարցն ունեմ, ինչ-որ կերպ դա անելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք փաստաթուղթը բաժանել վերնագրի 1 ոճերի հիման վրա՝ որպես ձեր «սահմանազատիչ»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Անդրեյ,
VBA սկրիպտը կարող է ամբողջ փաստաթուղթը բաժանել ըստ էջերի: Եթե ​​Ձեզ անհրաժեշտ է բաժանել 1-ին վերնագրով, մենք առաջարկում ենք փորձել Kutools-ը Word-ի բաժանման (Փաստաթղթի) ֆունկցիայի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ներբեռնված անասնակերն ընդհանրապես չի բացվում: Երկար սպասելիս։
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր