不知道这样定义一个能代表Range的Page对象有没有意义。

loquat

没有产生任何选中操作和光标移动操作，直接获取页的Range范围。新手可能有用。。。

1. Function myRange(aPage%) As Range
   
2. Dim oStart&, oEnd&
   
3. With ActiveDocument
   
4.     oStart = .GoTo(wdGoToPage, wdGoToAbsolute, aPage).Start
   
5.     oEnd = .GoTo(wdGoToPage, wdGoToAbsolute, aPage + 1).Start
   
6.     Set myRange = .Range(oStart, oEnd)
   
7. End With
   
8. End Function

复制代码

自己测试了一下，效率还是蛮高的。。。

1. Sub test()
   
2. Dim i%, t: t = Timer
   
3. Application.ScreenUpdating = False
   
4. j = ActiveDocument.ComputeStatistics(wdStatisticPages)
   
5. For i = 1 To j
   
6.     Set rng = myRange(i)
   
7. Next
   
8. Application.ScreenUpdating = True
   
9. Debug.Print Timer - t
   
10. End Sub

复制代码

其实用Set语句，或者SetRange语句都不是我喜欢的类型。
我喜欢用with来省略变量。
SetRange方法似乎就是个多余的方法，效率又没有优势。
平时写代码时，直接with activedocument.range(ostart,oend)多开心。

hellohaoyu1985

就是这种方式，我记得楼主在几个月前已经说过了。
当时的代码为

1. Function iParaCount(oRange As Range) As Integer
   
2. '这个函数返回Range所在的段落数
   
3. oRange.SetRange 0, oRange.End
   
4. iParaCount = oRange.Paragraphs.Count
   
5. '这种方法也行
   
6. 'iParaCont = oRange(0, oRange.End).Paragraphs.Count
   
7. End Function
   

复制代码

引文部分是楼主提供的办法，原文我写的。

loquat

hellohaoyu1985 发表于 2014-4-7 16:48
就是这种方式，我记得楼主在几个月前已经说过了。
当时的代码为引文部分是楼主提供的办法，原文我写的。

是的，直觉SetRange效率应该没有优势。
iParaCount = ActiveDocument.Range(0, oRange.End).Paragraphs.Count