Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как сохранить текущую или каждую страницу как отдельный документ Word?

Author Xiaoyang Last modified

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

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

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


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

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

  1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
  2. Нажмите Вставить > Модуль, и вставьте следующий код в Модуль окно:
    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 для запуска этого кода. В появившемся диалоговом окне введите имя для нового файла. См. скриншот:
    Dialog with input box to enter a name for the new document
  4. Нажмите OK, и во втором появившемся окне Обзор выберите папку, где будет сохранен новый файл.
    Browse window
  5. Нажмите OK, и содержимое текущей страницы будет сохранено как новый файл Word. Вы можете просмотреть результат в выбранной папке.

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

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

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.

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

  1. Нажмите Kutools Plus > Разделить. См. скриншот:
    Split button on the Kutools Plus tab on the ribbon
  2. В Разделить документ диалоговом окне:
    1. Выберите Страница из выпадающего списка Разделить по.
    2. Нажмите Folder selection icon кнопку, чтобы выбрать папку для сохранения новых файлов.
    3. Укажите префикс для новых сохраненных файлов при необходимости.
      Split Document dialog box
  3. После завершения настроек нажмите OK, чтобы начать разделение. Все страницы в документе Word будут сохранены как отдельные файлы в указанной папке. См. скриншот:
    All pages of the document are saved as separate files in the specific folder

Лучшие инструменты для повышения производительности в офисе

Kutools for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

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

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

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

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

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

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

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

Лучшие инструменты для повышения производительности в офисе

Kutools for Word - 100+ инструментов для Word