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

АвторСяоянДата изменения2024-09-18

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

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

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

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

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

Удерживая клавиши ALT + F11, вы откроете окно Microsoft Visual Basic for Applications.

Выберите Вставка>Модульи вставьте следующий код в окно Модуль:

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

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

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

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

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

Нажмите KUTOOLS PLUS > Разделить. См. снимок экрана:
В диалоговом окне Разделить документ:
1. Выберите Страница в поле Разделить по в раскрывающемся списке.
2. Нажмите кнопку , чтобы выбрать папку для сохранения созданного файла.
3. При необходимости укажите префикс для новых сохраняемых файлов.
После завершения настройки нажмите кнопку ОК, чтобы начать разделение. Все страницы документа Word будут сохранены как отдельные файлы в указанной папке. См. снимок экрана:

Лучшие инструменты для повышения продуктивности в Office

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

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

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

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

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

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

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

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

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

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

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

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

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools