VBA调用Word .Find方法找到匹配文本后如何获取其所在页码

代码始终返回最后一页页码的核心逻辑错误：你将Find绑定在ActiveDocument.Content这个覆盖整个文档的Range上执行查找，匹配成功后依然是对全文档范围的Range调用Information(wdActiveEndPageNumber)，这个Range的结束位置天然在文档末尾，返回值自然永远是最后一页页码。同时对全文档Content执行的后台查找不会自动切换视图位置，所以你看不到文档跳转。

不要直接调用ActiveDocument.Content.Find，先单独声明一个独立的Range对象承载文档内容，将Find操作绑定在这个独立Range上：查找成功后，该Range会自动收缩定位到匹配到的文本位置，此时再对这个定位后的Range取页码信息即可得到正确结果。
修正后的代码：

Dim doc As Word.Document
Dim findRange As Word.Range
Dim LabelPageNum As Integer

LabelPageNum = 0
Set doc = Word.ActiveDocument
Set findRange = doc.Content

With findRange.Find
    .ClearFormatting
    .Text = "ABC-123456"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .IgnoreSpace = True
    .IgnorePunct = True
    .Execute
End With

If findRange.Find.Found Then
    LabelPageNum = findRange.Information(wdActiveEndPageNumber)
    ' 需要视图自动跳转到匹配位置时取消下面一行的注释
    ' findRange.Select
End If

• 查找参数Wrap建议替换为wdFindStop，原代码用的wdFindContinue会在查找抵达文档末尾后自动从文档开头循环检索，容易引发重复匹配的逻辑bug
• 若需要检索文档内所有符合条件的订单号，可在Find.Found判断块中添加Do Loop循环，每次匹配完成后调用findRange.Collapse wdCollapseEnd收缩范围，再继续执行Find.Execute即可遍历全部匹配结果
• 你的场景是每页固定存放1张发货标签，匹配到的文本不会出现跨页情况，取到的页码可直接用于后续打印逻辑

内容的提问来源于stack exchange，提问作者SteveB