====如何将某个WORD文档按页拆分====

Question

每一页产生一个RANGE对象？

Answer 1

自己顶一下，居然没有人回答，FlyingZFX那里去了？

Answer 2

本示例显示当前页码以及活动文档的总页数。MsgBox "The selection is on page " & _
    Selection.Information(wdActiveEndPageNumber) & " of page " _
    & Selection.Information(wdNumberOfPagesInDocument)

Answer 3

Dim rRange As Range
    Dim iInt As Integer
    
    iInt = 1
    Set Range = ThisDocument.Range( _
            Start:=ThisDocument.GoTo(wdGoToPage, wdGoToAbsolute, iInt).Start, _
            End:=ThisDocument.GoTo(wdGoToPage, wdGoToAbsolute, iInt).End _
            )终于找到方法了，，你好好看看吧，
这样就可以完成按页拆分了。