Как сохранить каждую страницу word в отдельный файл word

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

Сохранить текущую страницу как новый документ Word с кодом VBA

Сохраняйте каждую страницу как отдельный документ Word с Kutools for Word

Сохранить текущую страницу как новый документ Word с кодом VBA

Следующий код VBA может помочь вам сохранить содержимое текущей страницы в новый файл Word, сделайте следующее:

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

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: сохранить текущую страницу как новый документ Word:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

3. А затем нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне введите имя нового файла, см. снимок экрана:

4, Затем нажмите OK и во втором появившемся окне выберите папку для вывода нового файла, см. снимок экрана:

5. Нажмите OK , текущее содержимое страницы было сохранено как новый файл Word, вы можете перейти в папку, чтобы просмотреть результат.

Сохраняйте каждую страницу как отдельный документ Word с Kutools for Word

Если вы хотите сохранить каждую страницу всего документа в виде отдельных файлов, Kutools for WordАвтора Трещина функция может оказать вам услугу.

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

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

2. В Разделить документ диалоговое окно:

(1.) Выберите страница из Разделить на раскрывающийся список;

(1.) Щелкните кнопка для выбора папки для вывода новых файлов;

(2.) Затем укажите нужный префикс для новых сохраненных файлов.

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

Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!

1. Быстрая установка блока выделения на раздел или подраздел документа

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

Блок выделения будет автоматически установлен на весь текст, относящийся к выбранному разделу или подразделу. Далее этот блок копируем или вырезаем, вставляем в новый текстовый документ, форматируем при необходимости и сохраняем.

2. Сохранение разделов или подразделов документа в PDF

В контекстном меню выбранного заголовка или подзаголовка есть ещё один пункт, с помощью которого можно упростить выведение их содержимого в отдельный документ – в файл PDF. Реализована такая возможность в составе опции печати текстового редактора.

В Windows 10 в качестве принтера выбираем «Microsoft Print to PDF» – штатный PDF-принтер этой версии системы.

Называем и сохраняем файл.

PDF-файл таким образом сохраняется не как картинка, а как текст. Его в любой момент позднее можно открыть внутри того же Word.

И при необходимости пересохранить в любом другом формате, поддерживаемом текстовым редактором.

В Windows 8.1 и 7 эта процедура проделывается таким же образом. Однако в этих версиях системы штатного PDF-принтера нет, и прежде его необходимо установить. Делается это с помощью сторонних программ, например, BullZip PDF Printer, PDFCreator, doPDF и т.п.

3. Макрос копирования и вставки текста в новый документ

Если расформировываемый документ не имеет структуры разделов, можно либо её сформировать, либо оставить всё как есть, и ставить блоки выделения вручную. Но даже в последнем случае какую-то часть работы всё равно можно автоматизировать. Копирование или вырезание из исходного документа текста и его вставку в новый Word-файл можно поручить макросам. А их задействование наряду с быстрой установкой блока на целый раздел (подраздел) и вовсе минимизирует труды.

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

Запускаем параметры центра управления безопасностью.

Включаем макросы.

Далее отправляемся во вкладку «Вид» и кликаем «Запись макроса». В появившемся небольшом окошке записи макроса выбираем вариант его задействования в будущем – кнопка на панели быстрого доступа или горячие клавиши – и жмём «Ок».

Теперь необходимо провести комплекс действий, которые макрос сначала запишет, а затем будет воспроизводить в дальнейшем:
Выделяем заголовок, подзаголовок или произвольную область текста;
Нажимаем кнопку (или горячие клавиши) вырезки или копирования;
Нажимаем кнопку открытия нового документа (для удобства её можно вынести на панель быстрого доступа);
Вставляем содержимое буфера в новый документ;
Останавливаем запись макроса с помощью кнопки внизу окна.

Теперь этот макрос с помощью назначенной кнопки (или горячих клавиш) можно запускать для каждого нового блока выделения в исходнике. И всё само будет вырезаться и вставляться в новых документах. Их останется только сохранить потом. Сохранять файлы с нужными нам именами макросы, увы, пока что не умеют.

Видео

как … из документа Word каждую страницу сохранить в отдельный файлСкачать

Как в ворде выцепить все изображения в отдельные файлыСкачать

Как обьединить все документы в один ворде word?Скачать

Как в ворде выцепить все изображения в отдельные файлыСкачать

Источник

'-------------Begin-----------------
Sub doc_splitter()
' Copyright by W. Polmann
' Use at your own risk
 
origdoc = ActiveDocument.Name
 
Dim Mldg, Titel, Voreinstellung, Batches
Mldg = "Number of batches?"
Titel = "Freeware by [url]www.ecm-e.de[/url], W. Polmann."
Voreinstellung = "1" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Batches = InputBox(Mldg, Titel, Voreinstellung)
 
Prozentsprung = 100 / Batches
 
For x = 1 To Batches
 
 
ActiveDocument.SaveAs FileName:="Teil_" & x & "_" & origdoc & ".doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
 
 
EndeProzentsprung = Prozentsprung * x
AnfangProzentsprung = EndeProzentsprung - Prozentsprung
 
 
Selection.GoTo What:=wdGoToPercent, Which:=wdGoToNext, Count:=AnfangProzentsprung, Name:=""
Anfang = Selection.Start
 
Selection.GoTo What:=wdGoToPercent, Which:=wdGoToNext, Count:=EndeProzentsprung, Name:=""
' Bis zur nächsten Absatzmarke hoch
 
 
Selection.Find.ClearFormatting
With Selection.Find
.text = "^p"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Ende = Selection.End
 
 
Set Range = ActiveDocument.Range(Anfang, Ende)
 
 
Range.Select
Selection.Copy
 
 
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Paste
ActiveDocument.Save
ActiveDocument.Close
 
Documents.Open FileName:=origdoc, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
 
Next x
 
ActiveDocument.Close
 
End Sub
'---------End---------------

Источник

Как скопировать или дублировать страницу Word

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

Копирование страницы в одностраничном документе

Если в документе всего одна страница, для ее копирования проще всего использовать команду Выделить все.

Нажмите клавиши CTRL+A, чтобы выделить весь текст в документе.

Совет: Для этого также можно установить курсор в левом поле и быстро щелкнуть левую кнопку мыши три раза подряд.

Нажмите клавиши CTRL+C, чтобы скопировать весь выделенный фрагмент.

Примечание: Имейте в виду, что при этом будет выделено все в документе. Этот способ лучше всего использовать для копирования документа, который содержит только одну страницу.

Копирование страницы в многостраничном документе

Если ваш документ Word содержит несколько страниц, советуем выделить нужный текст вручную и скопировать его.

Поместите курсор в начало текста, который вы хотите скопировать.

Щелкните и перетащите курсор вниз страницы.

Нажмите клавиши CTRL+C.

Совет: Другой способ скопировать выделенный текст — нажать кнопку Копировать на вкладке Главная.

Вставка скопированного текста на другую страницу

Скопировав содержимое страницы, вы можете вставить его на другую страницу или в новый документ.

Поместите курсор в нижнюю часть страницы, которая находится перед скопированной.

Щелкните Вставка > Пустая страница, чтобы добавить новую страницу.

Примечание: Чтобы перейти с текущей страницы на следующую, можно также добавить разрыв страницы. Для его вставки нажмите клавиши CTRL+ВВОД.

Поместите курсор в то место новой страницы, в котором должен быть текст. Нажмите клавиши CTRL+V, чтобы вставить скопированный текст.

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

Копирование страницы в новый документ

Создайте документ, щелкнув Файл > Создать > Пустой документ, вставьте в него содержимое, а затем сохраните его.

Как вырезать страницы из ворда в отдельный файл

Сообщение было отредактировано: 2 ноя 07, 09:28

или что вам надо?

I Have Nine Lives You Have One Only
THINK!

Большое спасибо Вам за макрос.

Мне надо, чтобы можно было выбрать отдельную страницу из большого документа и её поместить в отдельный файл. Там, наверное, InputBox должен быть, но как это сделать я не знаю.

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

1. Находила я это.
2. Если бы я смогла, я бы не стала отвлекать вас от решения более важных задач. Я ведь не прогаммист и даже не программер, я бухгалтер. С экселем я вобщем-то справляюсь, а вот Word.

Sebastian

С экселем я вобщем-то справляюсь, а вот Word

а чем Word сложнее Exel’я?

ЗЫЖ на данном форуме любят ПОМОГАТЬ, а НЕ делать за других их работу
предоставьте что Вы успели наваять, тогда и помогающих появиться больше

I Have Nine Lives You Have One Only
THINK!

Уважаемый HandKot, большое спасибо за отклик.
Буду дерзать (а, может терзать) далее!

Копирование страницы Microsoft Word со всеми элементами

Если вам необходимо копировать страницу документа MS Word, сделать это предельно просто только в том случае, если кроме текста на странице ничего нет. Если же помимо текста, на странице содержатся таблицы, графические объекты или фигуры, то, поставленная задача заметно усложняется.

Выделить страницу с текстом можно с помощью мышки, это же действие захватит и некоторые, но не все объекты, если таковые имеются. Достаточно просто кликнуть левой кнопкой в начале страницы и переместить указатель курсора, не отпуская кнопки мышки, до конца страницы, где кнопку нужно отпустить.

Примечание: Если в документе есть подложка или измененный фон (не фон за текстом), эти элементы точно не будут выделены вместе с остальным содержимым страницы. Следовательно, и скопировать их не получится.

Важно понимать, что содержимое страницы, которую вы скопируете в Ворде, при вставке в любую другую программу (текстовый редактор), явно изменит свой внешний вид. Ниже мы расскажем о том, как копировать страницу в Word целиком, подразумевая последующую вставку скопированного контента тоже в Ворд, но уже в другой документ или на другие страницы того же файла.

1. Установите курсор в самом начале страницы, которую вы хотите скопировать.

2. Во вкладке “Главная” в группе “Редактирование” нажмите на стрелочку, расположенную слева от кнопки “Найти”.

3. В выпадающем меню выберите пункт “Перейти”.

4. В разделе “Введите номер страницы” введите “page” без кавычек.

5. Нажмите кнопку “Перейти” и закройте окно.

6. Все содержимое страницы будет выделено, теперь его можно скопировать “CTRL+C” или вырезать “CTRL+X”.

7. Откройте документ Ворд, в который необходимо вставить скопированную страницу или перейдите на ту страницу текущего файла, куда нужно вставить ту, что вы только что скопировали. Кликните в том месте документа, где должно быть начало скопированной страницы.

8. Вставьте скопированную страницу, нажав “CTRL+V”.

На этом все, теперь вы знаете, как скопировать страницу в Microsoft Word вместе со всем ее содержимым, будь то текст или любые другие объекты.

Мы рады, что смогли помочь Вам в решении проблемы.

Помимо этой статьи, на сайте еще 11905 инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

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

Источник

Сохранить текущую страницу как новый документ Word с кодом VBA

Сохраняйте каждую страницу как отдельный документ Word с Kutools for Word

Рекомендуемые инструменты для повышения производительности Word

Kutools For Word — Более 100 расширенных функций для Word, сэкономьте 50% времени

Сохраняйте каждую страницу как отдельные файлы PDF в большом количестве с кодом VBA

Рекомендуемые инструменты повышения производительности Word

Kutools For Word – Более 100 дополнительных функций для Word, сэкономьте 50% времени

1. Быстрая установка блока выделения на раздел или подраздел документа

2. Сохранение разделов или подразделов документа в PDF

3. Макрос копирования и вставки текста в новый документ

Видео

Как скопировать или дублировать страницу Word

Копирование страницы в одностраничном документе

Копирование страницы в многостраничном документе

Вставка скопированного текста на другую страницу

Копирование страницы в новый документ

Как вырезать страницы из ворда в отдельный файл

Копирование страницы Microsoft Word со всеми элементами