请教：如何将一个word文档按页保存为多个word文档？？？

qlwy

请教：如何将一个word文档按页保存为多个word文档？？？ 并且最好将当页第一行文字做为文档的文件名．

办公之星

　 　　合并文档问题经常碰到，拆分文档何苦来哉。 　　说明理由，最好再上传附件，大家看看有没有更好的办法。

守柔

我觉得此问题要用VBA来做，另外，楼主如何保证每页首行均不是空行，如果是空行，该如何处置？

一个文件名取自每页的首行，是否太长了？（但不一定有限制有冲突）

qlwy

谢谢二位回复,现在我讲讲为什么拆分,看看有什么好办法.

我有个excel表，里面是问题解答，基中第一列是问题类型，第二列是问题题目，第三列是对问题的答案。也就是每条记录是一个完整的问、答。现在，我想把他做成CHM格式的问题解答文档，使每个问题占一页。我的思路是：先利用邮件合并功能把excel表中的每条记录（每行，即一个完整解答）倒入到word中，使之每行在word中显示一页，然后。。这就是我要拆分的原因——把这个文件按页分成多个word,放入一个文件夹内，然后再把这个文件夹内的所有word转换为TXT格式，然后，有了ＴＸＴ格式，我就可以做成ＣＨＭ格式的文件了！！！

请各位看看我的思路是否正确，是否还有其他的办法．如果思路正确，请指点如何将word按页拆分成多个word．

守柔

我未认真考虑你的思路，只做了一个将一个WORD文档按楼主所说每页分成一个文档的办法，请参考并运行以下代码：

Sub SaveAsPage()
Dim PageCount As Integer, StartRange As Long, EndRange As Long, MyRange As Range, Fn As String, MyDoc As Document
On Error Resume Next
PageCount = Selection.Information(wdNumberOfPagesInDocument)
Range(0, 0).Select '将光标移至文档起点
For i = 1 To PageCount '设置循环次数
    StartRange = Selection.Start '取得该页的第一个字符位置
    Selection.EndKey Unit:=wdLine '将光标移动到该页首行的最后位置
     Fn = Range(StartRange, Selection.End - 1) '-1的目的是防止该页首行含有段落标记,导致出错.
        If i = PageCount Then '如果循环到达最后一页
        EndRange = ActiveDocument.Content.End '将文档最后位置赋值于EndRange
        Else
        Selection.GoToNext (wdGoToPage) '否则,将下一页的起始位置赋值于EndRange(等同于本页的最后位置)
        EndRange = Selection.Start
        End If
    Set MyRange = Range(StartRange, EndRange) '将本页中的内容进行复制
    MyRange.Copy
    Set MyDoc = Documents.Add '新建一空白文档
    MyDoc.Range(0, 0).Paste '在文档开始处粘贴
    MyDoc.SaveAs FileName:=Fn '保存文档名
    MyDoc.Close '关闭文档
Next
End Sub

[此贴子已经被konggs于2007-2-1 20:00:18编辑过]

qlwy

谢谢仁兄!太谢谢了!

qlwy

运行到第四行：

Range(0, 0).Select '将光标移至文档起点 出现提示：编译错误，子过程或函数未定义！

请守柔兄帮忙改改

守柔

我又试了一遍，应该没有问题。请再次检查代码复制粘贴过程是否有问题，此代码应该粘贴于活动文档中（即你的主文档中）的“THISDOCUMENT”模块中。

或者你将出错时的状态印屏幕后上传。

qlwy

守柔曰强。

　　－－－老子《道德经》

强！！！

守柔

看来还是同好！见小为明。

明！