跳到主要内容

如何将当前页面或每个页面另存为单独的Word文档?

作者:晓阳 最后修改时间:2024-07-03

如果您的 Word 文档包含多页,您可能会发现自己只需要将当前页面保存为新的 Word 文件。通常的方法是将当前页面的内容复制并粘贴到新的 Word 文件中,然后保存。但是,本文将向您展示更有效的方法,将当前页面或每个页面保存为来自单个 Word 文件的单独文档。

使用VBA代码将当前页面另存为新的Word文档

使用 Kutools for Word 将每个页面保存为单独的 Word 文档


使用VBA代码将当前页面另存为新的Word文档

以下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文件,您可以转到该文件夹​​以查看结果。


使用 Kutools for Word 将每个页面保存为单独的 Word 文档

如果要将整个文档的每一页另存为单独的文件,则 Kutools for Word分裂 功能可以帮您一个忙。

Kutools for Word, 配备人工智能 🤖,提供 100 多种方便的功能来简化您的任务。

安装后 Kutools for Word,请执行以下步骤:

1。 点击 Kutools 加 > 分裂,请参见屏幕截图:

2。 在 分割文件 对话框:

(1.)选择 来自 分割为 下拉列表;

(1.)点击 doc保存当前页面5 按钮选择一个文件夹以输出新文件;

(2.)然后,根据需要指定新保存文件的前缀。

3。 完成设置后,单击 OK 按钮开始拆分,然后,Word文档中的所有页面都已另存为单独的文件,保存在特定的文件夹中,如以下屏幕截图所示:

doc保存当前页面6

点击下载 Kutools for Word 并立即开始免费试用!

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  快速获得答案,全部在Word中

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/HTML...)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 导航到任何位置  /  自动插入重复文本  /  在文档窗口之间切换  /  11 转换工具...

👉 想要尝试这些功能吗?立即下载 Kutools for Word 并体验不同之处! 🚀
 
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations