如何将一个word文档按页分割成多个word文档？

2024-11-09 10:07:07

推荐回答（5个）

回答（1）：

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

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

　　3、保存，即可。其他页依此类推。

回答（2）：

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；

2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；

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运行，看到“完成！”结束。

5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

回答（3）：

1、打开需要拆分的文档
2、将需要拆分的章节标题样式选中“标题1”
3、选择大纲视图——显示1级标题——点击显示文档
4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分
5、双击图中所示文本标志。
6、会自动弹出新word窗口，新word文档为全部第一章节内容，点击保存即可。然后重复上面步骤，将其他章节进行拆分。

回答（4）：

剪切，复制，就ok了

回答（5）：

插入分页符

购买平安车险可以办平安信用卡吗

平安银行信用卡购买车险能提额吗

桂花树叶子发黄萎蔫，该怎么处理

求帮忙满意给采纳。可不可以帮忙写一段文字回忆你当年高考那段时光的具体内容字数不限谢了谢了

八年级上册物理填空题（看要求）

电车用日语怎么说,要有谐音

有几百块钱的交通事故没签同意会影响办理签证吗？

如何测试镜头是否跑焦

创可贴为什么能愈合伤口?