Как разделить документ на страницы в word

Как разделить документ на страницы в word

Может возникнуть ситуация, что нужно разделить многостраничный документ на отдельные документы. Например, каждая страница несет отдельную информацию, а таких десятки или сотни.

Примечание. Если вам необходимо разделить информацию в документе, которая занимает 1,5, 2 или большее количество страниц, то способ не поможет. Предложенный макрос разделяет лишь по 1 странице.

Алгоритм работы:

1. Скопировать многостраничный документ, который нужно разделить в отдельную папку. Открыть его. Дальше: «Вид → Макросы → Макросы».

2. Если у вас до сих пор не было макросов и в открывшемся окне они не отображаются, то нужно нажать «Создать». Если макросы уже присутствуют, то нужно выделить любой из них и нажать «Изменить» или нажать сочетание клавиш Alt + F11. Запустится окно программы Microsoft Visual Basic.

3. Скопировать следующий код макроса:
Sub РозбитиДокументНаСторінки()
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

4. Найти где заканчивается последний макрос (если поле пустое, то просто вставить скопированный код нашего макроса) и вставить скопированный код. После этого можно закрыть окно Microsoft Visual Basic.

5. Далее перейти в «Вид → Макросы → Макросы» и найти только что добавленный (имя: РозбитиДокументНаСторінки), выделить его и нажать на кнопку «Выполнить».

6. После выполнения команд ваш документ будет разделен постранично (каждая страница на отдельном документе). Все документы будут добавлены в папку основного документа и будут иметь его название + номер страницы (смотрите снимок экрана ниже).

Макрос можно переименовать. Название макроса находится в начале и выделено полужирным: Sub РозбитиДокументНаСторінки(). Найдите его в коде, который показан выше и переименуйте если нужно. Имя не должно содержать пробелов.

Как разделить страницу на 2 части в Word

Иногда при работе с текстом в редакторе Word возникает необходимость разделить страницу на 2 или больше частей. Например, такое разделение необходимо при создании брошюры. В этом материале мы рассмотрим сразу два способа как это можно реализовать. Материал будет актуален для всех современных версий Word, включая Word 2007, 2010, 2013 и 2016.

Разделение страницы с помощью колонок

Самым простым и одновременно правильным способом разделение страницы на две части является разделение с помощью колонок. Это делается это с помощью кнопки « Колонки », которая находится на вкладке « Разметка страницы » (Word 2007, 2010 или 2013) или на вкладке « Макет » (Word 2016, 2019 и 2021).

Нажмите на кнопку « Колонки » и в открывшемся меню выберите вариант « Две ». В результате ваш документ Word будет разделен на 2 равные части, каждую из которых можно заполнить текстом, картинками или другим контентом.

Также можно выбрать вариант « Слева » или « Справа ». В этом случае вы также разделите страницу на две части, только одна из частей будет немного больше.

При желании, разделение страницы на части можно настроить вручную. Для этого нажмите на кнопку « Колонки » и выберите « Другие колонки ».

В результате откроется окно « Колонки » в котором можно будет настроить количество колонок, их размеры и промежутки между ними.

Как уже было сказано, в Word 2016 и более новых версиях, кнопку « Колонки » нужно искать на вкладке « Макет ». В остальном все настройки такие же как было описано выше.

В Word 2003 также можно разделить страницу на 2 части. Для этого нужно открыть меню «Формат » и выбрать « Колонки ».

В результате перед вами появится окно « Колонки » с точно такими же настройками, как на скриншоте выше.

Разделение страницы с помощью таблицы

Также вы можете разделить страницу на 2 части с помощью таблицы. Данный способ немного сложнее, но при этом он позволяет разделять отдельные страницы, а не весь документ Word целиком. Для того чтобы воспользоваться этим способом перейдите на вкладку « Вставка », нажмите на кнопку « Таблица » и создайте таблицу размером 2 на 1.

Для того чтобы разделение страницы выглядело боле естественно, таблицу нужно сделать не видимой. Для этого выделите всю таблицу с помощью мышки и перейдите в раздел « Работа с таблицами – Конструктор ». Здесь нужно открыть меню « Границы » и выбрать вариант « Нет границы ».

В результате вы получите невидимую таблицу, которая будет разделять вашу страницу на 2 части.

Разделение страницы с помощью текстовых полей

Еще один вариант разделения страницы на 2 части — текстовые поля. В последних версиях Word для этого нужно открыть вкладку « Вставка », нажать на кнопку « Текстовое поле » и выбрать « Простая надпись » (в старых версиях Word для этого можно использовать инструмент « Фигуры » на вкладке « Вставка »).

В результате на странице появится плавающая рамка, в которую можно изменять и свободно перемещать по странице.

Разместив две таких рамки и растянув их по вертикали можно разделить страницу на 2 части.

Для того чтобы убрать границы нужно выделить рамку, перейти на вкладку « Формат фигуры », нажать на кнопку « Контур фигуры » и выбрать вариант « Нет контура ».

Повторив эту процедуру для обоих рамок вы получите разделение листа на 2 части.

Разделение окна Word на 2 части

В заключении расскажем о функции, которая позволяет разделять окно программы Word на две части. Обратите внимание, в данном случае разделяется интерфейс программы, а не сама страница. Для того чтобы воспользоваться данной функцией перейдите на вкладку « Вид » и нажмите на кнопку « Разделить ».

В результате посередине окна Word появится линия, которая будет разделять интерфейс на две части. При этом документ, который открыт в Word, будет отображаться как в верхней части окна, так и в нижней. Такое разделение интерфейса удобно при работе с некоторыми типами документов, например, с документами в которых присутствуют большие таблицы.

• Как перевернуть страницу в Word
• Как построить график в Excel
• Как сделать альбомную страницу в Word
• Как сделать вертикальный текст в Word
• Как закрепить область в Экселе

Создатель сайта comp-security.net, автор более 2000 статей о ремонте компьютеров, работе с программами, настройке операционных систем.

Остались вопросы?

Задайте вопрос в комментариях под статьей или на странице «Задать вопрос» и вы обязательно получите ответ.

3 комментария — Добавьте свой
Андрей 15.10.2019

«В результате посередине окна Word появится линия, которая будет разделять интерфейс на две части…». А как перемещаться между этими частями при помощи клавиш?

покупка

Как разделить документ Word на отдельные файлы каждые 5 или n страниц?

Если у вас есть большой документ Word, содержащий сотни страниц, и теперь вы хотели бы разделить этот документ на отдельные файлы каждые 10 или n страниц. Есть ли какой-нибудь быстрый и простой способ решить эту задачу без копирования и вставки страниц по одной?

Split a Word document into separate files based on Heading1 / Page break / Every n pages etc.

Kutools for Word‘s Split feature can help you to split a large Word document into multiple separate files based on Heading1, page break, section break, each page and every n pages or custom pages as you need. Click to download and free trial now!

Разделите документ Word на отдельные файлы каждые 10 или n страниц с кодом VBA

Чтобы разделить большой документ на отдельные файлы на основе каждых 10 или n страниц, следующий код VBA может оказать вам услугу, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:

Код VBA: разделите документ на отдельные файлы каждые 10 или n страниц:

Sub DocumentSplitter() Dim xDoc As Document, xNewDoc As Document Dim xSplit As String, xCount As Long, xLast As Long Dim xRngSplit As Range, xDocName As String, xFileExt As String Dim xRegEx As RegExp Dim xPageCount As Integer Dim xShell As Object, xFolder As Object, xFolderItem As Object Dim xFilePath As String On Error Resume Next Set xDoc = Application.ActiveDocument Set xShell = CreateObject("Shell.Application") Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0) If TypeName(xFolder) = "Nothing" Then Exit Sub Set xFolderItem = xFolder.Self xFilePath = xFolderItem.Path & "\" Application.ScreenUpdating = False Set xNewDoc = Documents.Add(Visible:=False) xDoc.Content.WholeStory xDoc.Content.Copy xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting With xNewDoc xPageCount = .ActiveWindow.Panes(1).Pages.Count L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _ vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit) If Len(Trim(xSplit)) = 0 Then Exit Sub Set xRegEx = New RegExp With xRegEx .MultiLine = False .Global = True .IgnoreCase = True .Pattern = "[^0-9]" End With If xRegEx.Test(xSplit) = True Then MsgBox "Please enter the page number:", vbInformation, "Kutools for Word" Exit Sub End If If VBA.Int(xSplit) >= xPageCount Then MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word" GoTo L1 End If xDocName = xDoc. Name xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1) xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_" xFilePath = xFilePath & xDocName For xCount = 0 To Int(xPageCount / xSplit) xPageCount = .ActiveWindow.Panes(1).Pages.Count If xPageCount > xSplit Then xLast = xSplit Else xLast = xPageCount End If Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast) Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page") xRngSplit.Start = .Range.Start xRngSplit.Cut Documents.Add Selection.Paste ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False ActiveWindow.Close Next xCount Set xRngSplit = Nothing xNewDoc.Close wdDoNotSaveChanges Set xNewDoc = Nothing End With Application.ScreenUpdating = True End Sub 

3. После вставки приведенного выше кода все еще в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Tools > Рекомендации, а в выскочившем Ссылки-проект диалоговое окно, отметьте Регулярные выражения Microsoft VBScript 5.5 вариант в Доступные ссылки список, см. снимок экрана:

4. Затем нажмите OK кнопку, а затем нажмите F5 ключ для запуска этого кода и Просмотр папки отображается диалоговое окно, выберите папку, в которую вы хотите поместить разделенные файлы, см. снимок экрана:

5. Затем нажмите OK , и появится еще одно окно подсказки, напоминающее вам о вводе количества страниц, на основе которого вы хотите разделить, см. снимок экрана:

6, Затем нажмите OK , активный документ Word был разделен на отдельные файлы каждые 10 страниц, вы можете перейти в указанную папку, чтобы увидеть результаты:

Разделите документ Word на отдельные файлы каждые 10 или n страниц с удивительной функцией

Kutools for Word включает мощную функцию — Трещина С помощью этой утилиты вы можете быстро разделить большой документ Word на несколько отдельных файлов на основе заголовка 1, разрыва страницы, разрыва раздела и страницы.

Советы: Чтобы применить это Трещина функция, во-первых, вы должны скачать Kutools for Word, а затем быстро и легко примените эту функцию.

После установки Kutools for Word, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Трещина, см. снимок экрана:

2. В появившемся диалоговом окне установите следующие операции, как вам нужно, см. Снимок экрана:

3. После завершения настроек нажмите OK, и весь документ будет разделен на несколько файлов для каждой страницы, см. снимок экрана:

Лучшие инструменты для офисной работы

Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

Преобразуйте свои задачи Word с помощью Kutools. �� Загрузите 30-дневную пробную версию прямо сейчас ��.

Бесплатный разделитель DOCX

Извлечение страниц из DOCX документов, разделение страниц DOCX на отдельные файлы. DOCX Splitter — это лучший онлайн сервис для разделения документов. Используя его, вы можете быстро разделить свои DOCX документы на более мелкие части, что упрощает управление и организацию ваших данных. Он прост в использовании и совершенно бесплатен.

DOCX Splitter — идеальный инструмент для решения широкого круга задач, в том числе:

• Разбиение больших DOCX документов на более мелкие управляемые файлы
• Упрощение совместной работы над большими DOCX документами
• Организация страниц DOCX по различным критериям
• Подготовка DOCX документов к печати или распространению
• Создание цифровых буклетов или каталогов

Разделить DOCX на части онлайн

Вы можете выбрать один из нескольких режимов разделения DOCX:

• Разделить DOCX по каждой странице — в этом режиме каждая страница DOCX будет сохранена как отдельный файл.
• Разделить DOCX на четные и нечетные страницы — в этом режиме четные страницы будут сохранены в одном файле, а нечетные — в другом.
• Разделить DOCX на каждые N страниц — в этом режиме ваш DOCX документ будет разделен на разделы по N страниц в каждом.
• Разделить DOCX по номеру страницы — в этом режиме ваш DOCX документ будет разделен на две части в соответствии с указанным номером страницы

Извлечь страницы из DOCX онлайн

Существует также специальный режим ‘Извлечение страниц DOCX по диапазонам’, который позволяет извлекать определенные диапазоны страниц из DOCX документа. Вы можете указать несколько диапазонов страниц для DOCX файла, и каждый из них будет сохранен в отдельном документе.

Как разделить DOCX онлайн

1. Загрузите DOCX файл для разделения онлайн.
2. Укажите параметры обработки DOCX и нажмите кнопку.
3. Загрузите результаты в ZIP архив для мгновенного просмотра или отправьте ссылку на скачивание по электронной почте.
4. Выходные файлы будут удалены с наших серверов через 24 часа, а ссылки для скачивания больше не будут работать.

Как разделить DOCX документ на отдельные файлы

Онлайн разделитель DOCX. Чтобы разделить DOCX файл на части, просто укажите режим разделения по вашему выбору, установите формат выходного файла и нажмите кнопку. Вы можете сохранять результаты в различных форматах, включая DOCX, PDF, HTML, TXT, JPG, PNG и многие другие.

Разветвитель других форматов файлов

Вы также можете разделить файлы в других форматах файлов. См. список ниже.