请教：用vba怎么将一个大型文档按照指定页数进行分割？

szqhb

谢谢sqhsqhli，收藏之。

youyudetufei

学习了    ！！！要仔细分析

怀英慕者

sqhsqhli 发表于 2012-3-7 10:45
能告诉我出了什么问题嘛？我试了一个200多页的文档，还行的

运行提示：错误4608，数值超出范围。
调试这一行代码出了问题

1. .Range(.GoTo(wdGoToPage, wdGoToNext, , s).Start, VBA.IIf(s + 2 < ActiveDocument.Range.Information(wdNumberOfPagesInDocument), .GoTo(wdGoToPage, wdGoToNext, , s + 2).Start, .Content.End)).Copy

复制代码

sqhsqhli

确实存在问题（比如共5页就出错了），这是最新修改的，请测试。
Sub 每两页一文档3()
Application.ScreenUpdating = False
Dim s%, mydoc
For s = 1 To ActiveDocument.Range.Information(wdNumberOfPagesInDocument) Step 2
With ActiveDocument
.Range(.GoTo(wdGoToPage, wdGoToNext, , s).Start, VBA.IIf(s + 2 <= ActiveDocument.Range.Information(wdNumberOfPagesInDocument), .GoTo(wdGoToPage, wdGoToNext, , s + 2).Start - 1, .Content.End - 1)).Copy
End With
Set mydoc = Documents.Add(Visible:=False)
With mydoc
.Content.Paste
.SaveAs (s + 1) / 2 & ".doc"
.Close
End With
Set mydoc = Nothing
Next
Application.ScreenUpdating = True
End Sub

tanqc1989

sqhsqhli 发表于 2012-3-9 08:53
确实存在问题（比如共5页就出错了），这是最新修改的，请测试。
Sub 每两页一文档3()
Application.Screen ...

你好，我用这段代码提示4608，超出范围错误。请问下是不是定义范围小了？

tanqc1989

楼主，你好。请问你最后有完整的分页代码没？我现在需要将一个400多页的一个Word按照11页分解，迫切需要这样一个分页代码，望分享。谢谢！

鄂龙蒙

sqhsqhli 发表于 2012-3-6 11:16
Sub 每两页一文档()
Dim s%, mydoc
For s = 1 To ActiveDocument.Range.Information(wdNumberOfPagesInDo ...

请教：http://club.excelhome.net/thread-1318059-1-1.html

qinhuan66

好好学习天天向上