Прескочи на основното съдържание

Как да запиша текуща или всяка страница като отделен Word документ?

Автор: Xiaoyang Последна промяна: 2020-08-07

Ако има няколко страници във вашия документ на Word, сега просто трябва да запазите само една текуща страница като нов файл на Word. Обикновено можете да копирате и поставите данните от текущата страница в нов файл на Word и след това да го запазите. Но в тази статия ще говоря за това как да запишете текуща или всяка страница като отделни документи от Word файл.

Запазете текущата страница като нов документ на Word с VBA код

Запазете всяка страница като отделни документи на Word с Kutools за 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 за да стартирате този код, в изскачащия диалогов прозорец, моля, въведете име за новия файл, вижте екранната снимка:

doc запазва текущата страница 1

4, След това кликнете върху OK и във втория изскачащ прозорец, моля, изберете папка за извеждане на новия файл, вижте екранната снимка:

doc запазва текущата страница 2

5. Щракнете OK съдържанието на текущата страница е запазено като нов файл на Word, можете да отидете в папката, за да видите резултата.


Запазете всяка страница като отделни документи на Word с Kutools за Word

Ако искате да запазите всяка страница от целия документ като отделни файлове, Kutools за WordЕ разцепен функция може да ви направи услуга.

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

След инсталиране Kutools за Word, моля, направете следните стъпки:

1. Щракнете Kutools плюс > разцепен, вижте екранна снимка:

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

(1.) Изберете страница от Разделяне по падащ списък;

(1.) Щракнете doc запазва текущата страница 5 бутон за избор на папка за извеждане на новите файлове;

(2.) И след това посочете префикса за новите запазени файлове, както ви е необходимо.

3. След като завършите настройките, щракнете OK бутон, за да започнете разделянето, и след това всички страници в документа на Word са запазени като отделни файлове в конкретната папка, както е показано на следната екранна снимка:

doc запазва текущата страница 6

Щракнете, за да изтеглите Kutools за Word и безплатна пробна версия сега!

Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

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

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

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 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