word 想要将一个word文件中的多页变为多个word文件,每页是一个文件?
发布网友
共2个回答
热心网友
1、打开word文档，选中第一页的内容，右键－复制。
2、新建一空白文档，粘贴。
3、点击“文件”－“保存”，保存成一个新文档。重复这样的步骤即可。
热心网友
1、打开那个需要分割的文档
2、ALT+F11，会出现一个编辑器，然后你选择菜单“插入-模块”；
3、粘贴下面的代码：
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
4、粘好后，按F5，看到“完成！”结束
以上答案来自其他网友，我刚才试过了，可以用。答案出处：http://zhidao.baidu.com/question/118581756.html追问粘贴后格式变为一行，要和上边一模一样吗？粘贴后都是红色的错误，还要改成上边那样吗
追答http://zhidao.baidu.com/question/118581756.html你去这里复制答案。我试过的，不会变成红色啊，变成一行肯定不行
