如何将几十页word文档的每页分成单独word文件保存

发布网友 发布时间：2022-03-02 06:39

我来回答

共6个回答

热心网友 时间：2022-03-02 08:09

如何将几十页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的小工具，可以下载了直接用，也很方便。

热心网友 时间：2022-03-02 09:27

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

热心网友 时间：2022-03-02 11:01

我和你的问题一样，找这种文件处理软件，如果手动的弄，那就倒得弄，就是先备份一份，然后从最后一页开始剪切，粘贴到新文档，依此类推。

热心网友 时间：2022-03-02 12:53

把想要分出来的部分剪切下来，粘贴在一个新的文档上，保存起来不就行了

热心网友 时间：2022-03-02 15:01

请问lz现在解决了吗？是怎么弄的？我也遇到这样的问题。上面说的复制粘贴行不通，复制过去格式全变了，用删除的方法又太麻烦了 ，我有一百多页啊！！！。。

热心网友 时间：2022-03-02 17:25

聪明