Как сохранить текущую или каждую страницу как отдельный документ 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Автора Split функция может оказать вам услугу.
Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. |
После установки Kutools for Word, выполните следующие действия:
1. Нажмите Кутулс Плюс > Split, см. снимок экрана:
2. В Разделить документ диалоговое окно:
(1.) Выберите страница из Разделить на раскрывающийся список;
(1.) Щелкните кнопка для выбора папки для вывода новых файлов;
(2.) Затем укажите нужный префикс для новых сохраненных файлов.
3. После завершения настройки нажмите OK кнопку, чтобы начать разделение, а затем все страницы документа Word были сохранены как отдельные файлы в определенной папке, как показано на следующем снимке экрана:
Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...