我有一个word文件，有几十页，每一页的资料是单独的，用表格的方式做的，现在想把每一页文件保存为独立的word文件，该如何操作，请各位高人指点。
复制、剪切、粘贴后，文档设置的边框、格式全乱套了，又得重新一一编辑，很是麻烦，有没有类似ACROBAT那样，可以提取页面的方式，每一页单独保存？
如何将几十页word文档的每页分成单独word文件保存的方法如下：
1、编程法：
有时候需要将一个word文档每一页另存为一个word文档，如果手工操作，量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码，然后执行Sub SaveParagraph() 即可：
Option Explicit
Sub SaveParagraph()
Dim i As Integer, PageNo As Integer
Dim aDoc As Document
Dim myDoc As Document
Dim sPage As String
Set myDoc = ThisDocument
'文档视图设定为页面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate
'获得文档页数并赋值给变量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
myDoc.Activate
' 光标移动到文档某一页的开始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全选文档某一页的所有内容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text
'保存到一个文件中
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next
End Sub
2、工具法，现在网上有专门操作word的小工具，可以下载了直接用，也很方便。
1、编程法：
有时候需要将一个word文档每一页另存为一个word文档，如果手工操作，量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码，然后执行Sub SaveParagraph() 即可：
Option Explicit
Sub SaveParagraph()
Dim i As Integer, PageNo As Integer
Dim aDoc As Document
Dim myDoc As Document
Dim sPage As String
Set myDoc = ThisDocument
'文档视图设定为页面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate
'获得文档页数并赋值给变量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
myDoc.Activate
' 光标移动到文档某一页的开始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全选文档某一页的所有内容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text
'保存到一个文件中
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next
End Sub
2、工具法，现在网上有专门操作word的小工具，可以下载了直接用，也很方便。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-08-28
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
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
第2个回答 2012-04-12
我和你的问题一样，找这种文件处理软件，如果手动的弄，那就倒得弄，就是先备份一份，然后从最后一页开始剪切，粘贴到新文档，依此类推。
第3个回答 2006-09-29
把想要分出来的部分剪切下来，粘贴在一个新的文档上，保存起来不就行了
第4个回答 2012-07-02
请问lz现在解决了吗？是怎么弄的？我也遇到这样的问题。上面说的复制粘贴行不通，复制过去格式全变了，用删除的方法又太麻烦了 ，我有一百多页啊！！！。。本回答被网友采纳
