Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես է պառակտել փաստաթուղթը բազմակի փաստաթղթերի մեջ:

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

Split Word- ի փաստաթուղթը, որը սահմանվում է VBA- ով

Split Word- ի փաստաթուղթը էջով VBA- ով

Split Word- ի փաստաթուղթը վերնագրով / էջի / բաժնի ընդմիջման / էջի ընդմիջումը `օգտագործելով Kutools for Word- ը

Հեշտությամբ բաժանել մեկ բառի փաստաթուղթը բազմակիներին ըստ էջի, բաժնի / էջի ընդմիջման կամ մեկանգամյա վերնագիր:

Համեմատելով Բառի փաստաթղթի բաշխումը, պատճենելու եւ տեղադրելու միջոցով, Kutools Word- ի համար կթուլացնի աշխատանքը եւ կբարձրացնեք ձեր աշխատանքի արդյունավետությունը զգալիորեն իր Split- ի առանձնահատկությամբ, որը կարող է արագորեն բաժանել ներկայիս բացման Բրոդերի փաստաթուղթը բազմակիներին, ըստ էջի ընդմիջման, ըստ էջի ընդմիջումը կամ 1- ը, ըստ Ձեզ անհրաժեշտության: Սեղմեք 60 օրվա անվճար փորձաշրջան:
գովազդային փաստաթղթերը էջով

Բառի համար kutools: Ավելացրեք 100 նոր առաջադեմ առանձնահատկություններ դեպի Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019:
Գրասենյակի էջանշանըՄիացնել Գրասեղանի խմբագրում եւ դիտում գրասենյակում, Just Like Chrome, Firefox, IE 8 / 9 / 10:
Դասական մենյու գրասենյակի համար: Ներկայացրեք Office- ի նախկին տեսքը 2003 Վերադառնալ 2007- ում, 2010- ում, 2013- ում, 2016- ում եւ 2019- ում:

arrow կապույտ աջ փուչիկ Split Word- ի փաստաթուղթը, որը սահմանվում է VBA- ով

Փաստաթուղթը բազմակի փաստաթղթեր ձեռքով բաժանելու փոխարեն, այս մեթոդը կներկայացնի VBA- ն Word- ի փաստաթղթի բովանդակության սահմաններում բաժանելու համար: Խնդրում ենք անել հետեւյալը.

1. Մամուլ Alt + F11 բանալիներ միասին բացելու Microsoft Visual Basic դիմումը պատուհանի;

2: Սեղմեք Տեղադրել > Մոդուլներ, իսկ հետո VBA կոդի ներքեւում տեղադրեք նոր բացման մոդուլի պատուհանում:

VBA: Split 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) Դուք պետք չէ բնօրինակ ֆայլի վերջում սահմանազատիչ ավելացնել, եթե դուք անեք, պառակտումից հետո դատարկ փաստաթուղթ կլինի:


arrow կապույտ աջ փուչիկ Split Word- ի փաստաթուղթը էջով VBA- ով

Ահա եւս մեկ VBA, որն օգնում է ձեզ արագորեն բաժանել մեկ բառի փաստաթուղթ, բազմապատկելով Word- ում: Խնդրում ենք անել հետեւյալը.

1. Մամուլ Alt + F11 բանալիներ միասին բացելու Microsoft Visual Basic դիմումը պատուհանի;

2: Սեղմեք Տեղադրել > Մոդուլներ, իսկ հետո VBA կոդի ներքեւում տեղադրեք նոր բացման մոդուլի պատուհանում:

VBA: Split Document- ը բազմակի փաստաթղթերի մեջ, ըստ բառի

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- ն:

Նշում: Պառակտող փաստաթղթերը կպահպանվեն նույն վայրում, բնօրինակով:


arrow կապույտ աջ փուչիկ Split Word- ի փաստաթուղթը վերնագրով / էջի / բաժնի ընդմիջման / էջի ընդմիջումը `օգտագործելով Kutools for Word- ը

Եթե ​​ունեք Kutools Word- ի տեղադրումը, կարող եք կիրառել այն պառակտում գործառույթը, հեշտությամբ բաժանել մեկ փաստաթուղթ, բազմակիների մեջ էջի, վերնագրի, բաժնի ընդմիջման կամ էջի ընդմիջում, ինչպես հարկն է Word- ում:

Բառի համար kutools հարմար է ավելացնել ձեր աշխատանքը եւ բարձրացնել ձեր բառային փաստաթուղթը մշակելու ունակությունը: Ազատ դատավարություն 45 օրվա համար: Ստացիր այն հիմա!

1: Սեղմեք Մանրամասն > պառակտում հնարավորություն տալ Սպլիտի հնարավորությունը:
doc պառակտված փաստաթղթեր 001

2. Բացել Split երկխոսության էկրանին, խնդրում ենք (1) նշեք նպատակային թղթապանակը, որը կփրկեք պառակտված փաստաթղթերը, (2) ստուգման չափորոշիչները, որոնք ձեզ բաժանում են Տարածել բաց թողեք ցուցակը եւ (3) կտտացրեք OK կոճակը: Տեսեք,

Այժմ ներկայիս Word- ի փաստաթուղթը բաժանված է նշված չափորոշիչներով (Header 1 իմ դեպքում), եւ նպատակակետը բացվում է ավտոմատ կերպով պառակտված փաստաթղթերով: Տեսեք,
doc պառակտված փաստաթղթեր 002

Նշում: Այս ֆանտաստիկ Split առանձնահատկությունը նաեւ աջակցում է մեկ բառի բովանդակության փաստաթուղթը ըստ էջի, ըստ էջի ընդմիջման եւ բաժնի ընդմիջման հեշտությամբ Word- ում: Տես ներքեւի սքրինշոթեր.

Բառի մեկ փաստաթուղթ բաժանել բազմակիներին ըստ էջի:

Մեկ բառի փաստաթղթի բաժանումը բազմակիներին ըստ էջի ընդմիջման:

Բաժնետոմսով բաժանեք մեկ բառի փաստաթուղթ բազմակիներին:

Երկրորդ բրենդային փաստաթուղթը, Firefox- ի, Chrome- ի, Internet- ի որոնման եւ 10- ի խմբագրման համար:

Դուք կարող եք ծանոթանալ Firefox / Chrome / IE- ում բազմաթիվ էջերի դիտարկմանը եւ նրանց միջեւ փոխանակել `հեշտությամբ համապատասխան պիտակները սեղմելով: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել մեկից ավելի Word փաստաթղթեր մեկ Word- ի պատուհանում եւ հեշտությամբ անցնել նրանց միջեւ, սեղմելով դրանց ներդիրները: Սեղմեք ամբողջական հատկանիշներով անվճար դատավարությունը:
Թերթիր բազմակի փաստաթղթեր `մեկ պատուհանում որպես Firefox


arrow կապույտ աջ փուչիկՀարաբերական հոդվածներ.

Միացնել բազմաթիվ փաստաթղթեր եւ պահել ձեւաչափով բառերով




Բառի համար kutools

Ավելի քան 100- ի առաջադեմ գործառույթները Word 2003, 2007, 2010, 2013, 2016 եւ 2019- ի համար

shot-kutools-700-225-kte- ը

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 39.00 հարյուրավոր գործառույթների համար

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kotieddy · 3 years ago
    Dear team,
    VBA for Splitting document into multiple single-paged document is working good, but the problem is split documents are not having the table formats.(table formats in master document are not formatted as table in split documents).
    Thanks in advance if i can get the macros, so that tabular formats in master document are not disturbed in split documents
  • To post as a guest, your comment is unpublished.
    Ilya · 3 years ago
    Hello. How I can split .doc not one page per document using these scripts? E.g. 10 or 5 pages per document
  • To post as a guest, your comment is unpublished.
    Dhamo · 4 years ago
    When i try to split document the word document by using the above VB code, Its splitting by removing all the images and inseterd objects.
    • To post as a guest, your comment is unpublished.
      Tom Saylor · 2 years ago
      I'm having a problem similar to Dhamo's. I started with a large file with many embedded content controls. When I split my Word file using the VB code, the content controls were all converted to regular text. Is there any way to split a file without losing the formatting of the original?