Перейти к основному содержанию

Как сохранить текущую или каждую страницу как отдельный документ 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 Чтобы запустить этот код, в появившемся диалоговом окне введите имя нового файла, см. снимок экрана:

документ сохранить текущую страницу 1

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

документ сохранить текущую страницу 2

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


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

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

Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. 

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

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

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

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

(1.) Щелкните документ сохранить текущую страницу 5 кнопка для выбора папки для вывода новых файлов;

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

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

документ сохранить текущую страницу 6

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

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

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

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations