Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як падзяліць дакумент на некалькі дакументаў у слове?

Калі ў вас ёсць масіўнае слова дакумент, які вам трэба падзяліць на некалькі дакументаў, зойме некалькі хвілін, каб прачытаць гэты падручнік. Гэты падручнік пакажа вам два метаду для падзелу дакумента на некалькі дакументаў.

дакумент Падзяліць слова па паказаным падзельніка з дапамогай VBA

дакумент Падзяліць слова на старонцы з дапамогай VBA

дакумент Падзяліць слова на загаловак / старонкі / падзелу разрыву разрыву старонкі / с дапамогай Kutools для слова

Лёгка падзяліць адзін дакумент Word, у некалькіх з іх на старонцы, частка / разрыву старонкі або загаловак адразу!

У параўнанні з падзяліўшы дакумент Word, шляхам капіявання і ўстаўкі, Kutools для слова палегчыць вам працу і павысіць эфектыўнасць вашай работы значна яе Split асаблівасць, якая можа хутка расшчапляецца бягучага адкрыцця дакумента Слова да некалькім з іх на старонцы, на разрыў падзелу, на старонцы зламацца, або Heading 1, як вам трэба. Націсніце для 60-дзённай бясплатнай пробнай версіі!
Аб'яву падзяліць дакументы на старонцы

Kutools для слова: Дадаць 100 Новыя пашыраныя функцыі у Word, 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
ўкладка Упраўленне: Уключыць Ўкладкі Рэдагаванне і прагляд у офісе, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu для офіса: Давядзіце Стары Погляд офіса 2003 Назад у офіс 2007, 2010, 2013, 2016 і 2019.

стрэлка сіняга правага бурбалкі дакумент Падзяліць слова па паказаным падзельніка з дапамогай VBA

Замест падзелу дакумента на некалькі дакументаў ўручную, гэты метад будзе ўвесці VBA падзяліць дакумент Word, названым падзельнікам ў 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) Вам не трэба, каб дадаць падзельнік у канец зыходнага файла, калі вы гэта зробіце, будзе пусты дакумент пасля расшчаплення.


стрэлка сіняга правага бурбалкі дакумент Падзяліць слова на старонцы з дапамогай VBA

Вось яшчэ VBA, каб дапамагчы вам хутка падзяліць адзін дакумент Word, у некалькіх пастаронкава ў Word. Калі ласка, зрабіце наступнае:

1, прэс Alt + F11 ключы разам, каб адкрыць Microsoft Visual Basic для прыкладанняў вокны;

2, націсніце Уставіць > Модулі, А затым устаўце ніжэй VBA код у новым акне адкрыцця модуля.

VBA: Падзел дакумента ў некалькі дакументаў пастаронкава ў Слове

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.

нататка: Расшчапленне дакументы будуць захаваны ў тым жа месцы, з зыходным файлам.


стрэлка сіняга правага бурбалкі дакумент Падзяліць слова на загаловак / старонкі / падзелу разрыву разрыву старонкі / с дапамогай Kutools для слова

Калі ў вас ёсць Kutools для ўсталяваная Word, вы можаце ўжыць яго расшчэплены Функцыя лёгка падзяліць адзін дакумент на некалькі з іх на старонцы, загаловак, разрыў падзелу або разрыў старонкі, як вам трэба ў Слове ..

Kutools для слова гэта зручная надбудова, каб палегчыць вашу працу і павысіць вашу здольнасць апрацоўкі тэкстаў дакумента. Бясплатная пробная версія для 45 дзён! Get It Now!

1, націсніце Kutools падрабязна > расшчэплены для таго, каб Падзяліць функцыі.
дакумент падзяліць дакументы 001

2, У якое адкрылася дыялогавым акне Split на экране, калі ласка, (1) пазначыць тэчку вы зэканоміце разрезные дакументы ў, (2) праверыць крытэрыі, якія будуць расшчэплены з спліт выпадальны спіс, і (3) націсніце OK кнопка. Глядзіце скрыншот:

А цяпер бягучы дакумент Слова расшчапляецца па крытэрах (таварная пазіцыя 1 у маім выпадку), і тэчка прызначэння аўтаматычна адкрываецца з расшчэпленымі дакументаў. Глядзіце скрыншот:
дакумент падзяліць дакументы 002

нататка: Гэтая фантастычная функцыя разнесенай таксама падтрымлівае раскол дакумента аднаго слова старонкі, на разрыве старонкі, і падзел лёгка ламаецца ў Word. Глядзіце ніжэй скрыншоты:

Падзяліць адзін дакумент Word, у некалькіх з іх па старонцы:

Падзяліць адзін дакумент Word, у некалькіх з іх з дапамогай разрыву старонкі:

Падзяліць адзін дакумент Word, у некалькіх з іх па разрыў раздзела:

Ўкладкі прагляд & рэдагаванне некалькіх дакументаў Word, як Firefox, Chrome, Internet Explore 10!

Вы можаце быць знаёмыя праглядаць некалькі вэб-старонак у Firefox / Chrome / IE, і перамыкацца паміж імі, націснуўшы адпаведныя ўкладкі лёгка. Тут, Office Tab падтрымлівае аналагічную апрацоўку, якія дазваляюць праглядаць некалькі дакументаў Word, у адным акне Word, і лёгка пераключацца паміж імі, націснуўшы іх ўкладкі. Націсніце для поўных функцый бясплатнай пробнай версіі!
Прагляд некалькі дакументаў слова ў адным акне, як Firefox


стрэлка сіняга правага бурбалкіАдносныя артыкулы:

Аб'яднанне некалькіх дакументаў і захаваць фармат у слове




Kutools для слова

Больш 100 Пашыраныя функцыі для Word, 2003, 2007, 2010, 2013, 2016 і 2019

драбавік kutools-700-225-КТЭ

дадатковыя магчымасці | спампаваць | Толькі $ 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?