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

Як розділити документ на кілька документів у word?

Якщо у вас є масивний текстовий документ, який вам потрібно розділити на декілька документів, знайдіть кілька хвилин, щоб прочитати цей підручник. Цей підручник покаже вам два методи розділення документа на кілька документів.


Розділіть документ Word за вказаним роздільником за допомогою VBA

Замість того, щоб розділити документ на кілька документів вручну, цей метод запровадить VBA для розділення документа Word за вказаним роздільником у Word. Будь ласка, виконайте наступне:

1. Прес Alt + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic для програми;

2. Клацання Insert > Модулі, а потім вставте нижче коду 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) Вам не потрібно додавати роздільник у кінець оригінального файлу, якщо ви це зробите, після розділення буде порожній документ.

Розділіть документ Word на сторінку за допомогою VBA

Ось ще одна VBA, яка допоможе вам швидко розділити один документ Word на кілька сторінок у Word. Будь ласка, виконайте наступне:

1. Прес Alt + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic для програми;

2. Клацання Insert > Модулі, а потім вставте нижче коду 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.

Примітка: Документи, що розділяються, будуть збережені в тому ж місці, що і оригінальний файл.


Розділіть документ Word за допомогою заголовка / сторінки / розділу / розриву сторінки за допомогою Kutools для Word

Якщо у вас встановлений Kutools для Word, ви можете застосувати його розщеплений функція для легкого розділення одного документа на декілька за сторінками, заголовками, розрізами розділів або розривами сторінок, як вам потрібно в Word

Kutools для Word — це зручна надбудова для полегшення роботи та покращення можливостей обробки текстового документа. Безкоштовна пробна версія для 60 дні! Отримайте зараз!

1Натисніть Kutools Plus > розщеплений щоб включити розщеплений функцію.

2. У діалоговому вікні "Розділити" на екрані ви можете зробити наступне:

(1) Виберіть спосіб розділення з Розділено на випадаючий список.
Ця функція підтримує 6 способів розділення: заголовок 1, розриви сторінок, розриви розділів, сторінки, кожні n сторінок та спеціальні діапазони сторінок, як показано нижче:

(2) Клацніть на перегорнути button  вказати папка призначення, в яку ви збережете розділені документи;

(3) Введіть ключове слово як префікс нових імен документів у Префікс документа коробка

Порада:
(1) Якщо ви вказали розділити поточний документ на Кожні n сторінок, вам потрібно вказати номер у Кожні n сторінок коробка;

(2) Якщо ви вказали розділити поточний документ на спеціальні діапазони сторінок, вам потрібно ввести ці спеціальні діапазони сторінок, розділені комами в сторінка наприклад, введіть 1, 3-5, 12 у коробці.

3. Натисніть Ok , щоб розпочати розбиття.

Потім поточний документ розділяється вказаним способом розділення, і нові документи будуть масово збережені в цільовій папці.

Перегляд та редагування декількох документів Word із вкладками як Firefox, Chrome, Internet Explore 10!

Можливо, ви знайомі з переглядом декількох веб-сторінок у Firefox / Chrome / IE та перемиканням між ними, легко натискаючи відповідні вкладки. Тут вкладка Office підтримує подібну обробку, яка дозволяє переглядати кілька документів Word в одному вікні Word та легко перемикатися між ними, клацаючи їх вкладки. Натисніть, щоб отримати повну безкоштовну пробну версію!
Переглядайте кілька документів Word в одному вікні як Firefox


Відносні статті:



Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (45)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Коли я намагаюся розділити документ Word за допомогою наведеного вище коду VB, його розділення відбувається шляхом видалення всіх зображень та вставлених об’єктів.
Цей коментар був мінімізований модератором на сайті
У мене проблема, подібна до проблеми Дхамо. Я почав з великого файлу з безліччю вбудованих елементів керування вмістом. Коли я розділив свій файл Word за допомогою коду VB, усі елементи керування вмістом були перетворені на звичайний текст. Чи є спосіб розділити файл без втрати форматування оригіналу?
Цей коментар був мінімізований модератором на сайті
Привіт. Як я можу розділити .doc не на одну сторінку на документ, використовуючи ці сценарії? Наприклад, 10 або 5 сторінок на документ
Цей коментар був мінімізований модератором на сайті
Шановна команда, VBA для розділення документа на кілька односторінкових документів працює добре, але проблема в тому, що розділені документи не мають форматів таблиць (формати таблиць у головному документі не відформатовані як таблиці в розділених документах). Наперед дякую, якщо я зможу отримати макроси, щоб табличні формати в основному документі не порушувалися в розділених документах
Цей коментар був мінімізований модератором на сайті
Дуже корисно дякую! У моєму оригінальному документі було встановлено «лише читання». Це не переноситься в нові документи. Чи можна це додати?
Цей коментар був мінімізований модератором на сайті
Kutools для Word не працює для документів лише для читання.
Цей коментар був мінімізований модератором на сайті
На жаль, я не можу розділити сторінки за допомогою Kutools. Що я можу зробити? Я отримую таке повідомлення про помилку: Informationen über das Aufrufen von JIT-Debuggen antelle 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) bei System.SecuritysFismission.Percesser. Управління AccessControlActions, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean needFullPath, Boolean bei. InternalCreateDirectoryHelper(Шлях до рядка, Boolean checkHost) у System.IO.Directory.CreateDirectory(Шлях до рядка) у Kutools.FormDocumentSplit.€ () у Kutools.FormDocumentSplit.› (Object “ , EventArgs ” ) bei.Bei.Coni. OnClick(EventArgs e) у System.Windows.Forms.Button.OnClick(EventArgs e) у System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) у System.Windows.F orms.Control.WmMouseUp(Message& m, кнопка MouseButtons, Int32 клацань) у System.Windows.Forms.Control.WndProc(Message& m) у System.Windows.Forms.ButtonBase.WndProc(Message.WndProc(Message.WndProc) у System.Forms.WndProc. Button.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&m) bei. System.Windows.CaW IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Цей коментар був мінімізований модератором на сайті
Пенсіонерові надто важко усвідомити, що сталося зі старою програмою I Windows XNUMX, цією програмою було так легко керуватися нами, старшими.
Цей коментар був мінімізований модератором на сайті
Ваш макрос працює ДІЙСНО що ж, я вимагаю, щоб розділені документи зберігали вузькі поля та макет у двох стовпцях. Більше на удачу, ніж на судження(!), мені вдалося досягти цього вручну, і кінцевий результат був саме таким, яким я вимагав. Потім я скористався записом макросів, але не володію знаннями Word VBA, щоб змінити записаний код, щоб досягти цього. Ви можете допомогти? Спасибі заздалегідь!
Цей коментар був мінімізований модератором на сайті
Я спробував перший код розділеного документа, і він не спрацював. Він сказав, що розбиває його на три частини, але цього не сталося.
Цей коментар був мінімізований модератором на сайті
Перший VBA розділить поточний документ за роздільником "///". Ви додали роздільник "///" у свій документ?
Цей коментар був мінімізований модератором на сайті
Забудьте, я кілька разів пробував з літерами, цифрами, що не спрацювало, потім я побачив, що це стерло мої коментарі. Просто зазначу, що перший код не спрацював для мене, він сказав, що розбиває документ на три розділи, але не так.
Цей коментар був мінімізований модератором на сайті
Хтось знає, як змінити назви файлів після поділу основного, я хочу змінити імена відповідно до заголовка файлу
Цей коментар був мінімізований модератором на сайті
Я зробив код VBA: розділив документ на кілька документів відповідно до роздільника, він розділив документ, але, на жаль, графіка видаляється, а також форматується. Чи є рішення для цього?
Цей коментар був мінімізований модератором на сайті
Дякую за код макросу
Цей коментар був мінімізований модератором на сайті
Дякую, це було дуже корисно!
Цей коментар був мінімізований модератором на сайті
Ви щойно заощадили мені купу часу, дякую!
Цей коментар був мінімізований модератором на сайті
Дякую !

Одне запитання. Чи маєте ви ідею зберегти всі розділені документи в PDF?
Цей коментар був мінімізований модератором на сайті
Я використав код із розділу «Розділити документ Word на сторінку за допомогою VBA». Це спрацювало, щоб розділити документи, але зіпсувало форматування, через що те, що мало бути на 2 сторінках, було на 5 замість цього. Я погрався з кодом і в підсумку знайшов рішення.


Я замінив цей рядок: docSingle.Range.Paste 'вставити вміст буфера обміну в новий документ

з цим рядком: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Сподіваюся, це допоможе деяким з вас, у кого виникли проблеми з форматуванням.
Цей коментар був мінімізований модератором на сайті
Я використав код із розділу «Розділити документ Word на сторінку за допомогою VBA». Як мені змінити код, щоб зберегти оригінальний заголовок у всіх нових файлах?
Цей коментар був мінімізований модератором на сайті
як окремі доповнення для злиття
Цей коментар був мінімізований модератором на сайті
Функція розділення (документ) Kutools for Word може допомогти користувачам розділити документ Word за заголовком 1, розривом сторінки, розривом розділу або сторінкою.
Крім того, Kutools для Word також включає функцію об’єднання для об’єднання кількох документів Word в один.
Цей коментар був мінімізований модератором на сайті
Мені потрібно розділити документ за допомогою діапазону сторінок. наприклад, я хотів розділити від 1 до 10 сторінок в іншому документі. як я можу це зробити
Цей коментар був мінімізований модератором на сайті
Привіт. У мене таке саме запитання, чи можна це зробити?
Цей коментар був мінімізований модератором на сайті
Чи можете ви розділити документ на основі стилів заголовка 1 як вашого «розділювача».
Цей коментар був мінімізований модератором на сайті
Привіт Ендрю,
Сценарій VBA може розділити весь документ на сторінку. Якщо вам потрібно розділити за заголовком 1, ми пропонуємо спробувати Kutools для функції розділення (документ) у Word.
Цей коментар був мінімізований модератором на сайті
Завантажений fodler взагалі не відкривається. Довго чекають.
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL