Question

现在我有一个word文件，里面有上百页内容，我现在想把它拆分成一页一个文档的形式.....

现在我有一个word文件，里面有上百页内容，我现在想把它拆分成一页一个独立文档的形式，但是又不想一页一页的单粘贴，因为那会花费我一整天的工作时间......老板会杀了我。
请问各位高手，我怎么才能快速地把这一整个word文件快速地拆分成以一页为一个单位的若干个文件？？？？
别闹了好吗？我着急呢。

Answer 1

第三次修改

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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

追问

按照你的方法做了...但是按下F5后，出来以下文字：
运行时错误"4605"
此方法或属性无效 因为 未选定文字
怎么办啊

追答

我是严格按照这个来的，第三步后没有动任何东西，直接按F5，很快成功了。
你确定你用的是word 还是wps, 我用的是正版的word,而且是在我试验成功后才回答你的。或者你试试这个，把里面的200改成1。
http://zhidao.baidu.com/question/164634421.html
明天再试试，祝你成功哦，呵呵！
（还有这个http://zhidao.baidu.com/question/143381141.html?an=0&si=3）

搞好没有？不会是你word 有问题吧？ 可以重装个好点的office

Answer 2

把你的文档用制作电子书的工具做一下。然后单个章节做成单个的电子书。

后面步骤的你明白的。

或者。用虚拟打印机。打印当前页，打印到某个文档

Answer 3

告诉你一个相对简单点的方法：首先打开您那个几百页的word文档拉到你需要的保存的页数（比如你要保存第一页那就拉到第一页 以此类推），然后选中内容ctrl+X(剪切那一页的内容)，接着 ctrl+A（选中其余全部文字）接着删除其余全部文字，最后再ctrl+V(黏贴上去)另存为下就OK 此操作前 先把原来的word 备份好！然后同时打开两个word文档 可以节约时间 希望能帮到你 不懂的话HI我。

Answer 4

另存为,删除不需要的,也行!

Answer 5

貌似只有黏贴的方法