如何把word文档里的多页文件的其中一页另存为一个独立的新文档？不要复制与剪切方式的

发布网友 发布时间：2022-02-27 10:23

我来回答

共3个回答

热心网友 时间：2022-02-27 11:52

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
粘贴下面的代码：
Option Explicit

Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart
oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next

Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing

MsgBox "结束！"

End Sub
键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。

热心网友 时间：2022-02-27 13:10

只能把不要的页面删除，然后另存为，最后关文档的时候，注意不要保存就好了，对原文件没影响。

热心网友 时间：2022-02-27 14:45

付费内容限时免费查看回答您好具体方法步骤操作如下:

一、比如要把第三页另存为一个独立的文件，这时把光标定位至第二页尾部。

二、按下Ctrl+Shift+Home键选中上边全部内容，按下Del键删除。

三、然后把光标定位至第三页尾部，按下Ctrl+Shift+End选中后面全部内容，按Del键删除后，当前文档就只剩下第三页了。

六、另存完毕后，关闭原文件窗口，弹出提醒窗口内点击“否”即可不保存上边所删除的操作。

一整个原理方法，参考即可完成喔！很简单的，赶紧来试试吧。

祝您生活愉快！希望可以帮助到您！