Question

word 想要将一个word文件中的多页变为多个word文件，每页是一个文件?

每一页建立一个word文件 然后以每页第一行命名。

Answer 1

　　1、打开word文档，选中第一页的内容，右键－复制。

　　2、新建一空白文档，粘贴。

　　3、点击“文件”－“保存”，保存成一个新文档。重复这样的步骤即可。

　　

Answer 2

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你去这里复制答案。我试过的，不会变成红色啊，变成一行肯定不行