Word宏扩展选中范围至包含PageRef字段：MoveEnd失效问题求助

我有一份包含交叉引用的Word文档，示例内容如下：

See "Start the machine" on page 15.

其中文本“Start the machine”是超链接对象，“15”是PageRef字段。我希望通过宏为"Start the machine" on page 15应用字符样式。

我编写了如下宏来查找超链接，思路是选中超链接后，扩展选中范围直至包含PageRef字段：

Sub ExtendCrossref()
    Dim HL As Hyperlink
    For Each HL In ActiveDocument.Hyperlinks
    HL.Range.Select
    Do Until Selection.Fields.Count > 1
        Selection.Range.MoveEnd wdWord, 1
    Debug.Print Selection
    Loop
    Next
End Sub

但Selection.Range.MoveEnd无法正常工作：循环结束后，选中范围仍停留在"Start the machine"，而预期应扩展至"Start the machine" on。我也尝试过Selection.Extend，同样无效。

请问如何实现选中范围的扩展？

解决方案 #

问题出在Selection.Range.MoveEnd的使用逻辑上——直接修改Selection.Range不会同步更新当前选中区域，而且原循环条件Selection.Fields.Count > 1不够精准（超链接本身可能包含字段）。改用Range对象直接操作更稳定，同时需要精准识别PageRef字段。

修改后的宏代码如下：

Sub ExtendCrossref()
    Dim HL As Hyperlink
    Dim targetField As Field
    Dim currentRange As Range
    
    For Each HL In ActiveDocument.Hyperlinks
        Set currentRange = HL.Range.Duplicate
        
        ' 扩展范围直到找到PageRef字段或到达文档末尾
        Do
            ' 每次向后扩展一个单词
            currentRange.MoveEnd wdWord, 1
            
            ' 检查当前范围内是否包含PageRef字段
            For Each targetField In currentRange.Fields
                If targetField.Type = wdFieldPageRef Then
                    ' 扩展范围至PageRef字段末尾，确保包含完整页码
                    currentRange.End = targetField.Range.End
                    Exit Do
                End If
            Next targetField
            
            ' 防止无限循环：范围无法再扩展时退出
            If currentRange.End = ActiveDocument.Content.End Then Exit Do
        Loop Until targetField Is Not Nothing
        
        ' 为目标范围应用字符样式，替换为你需要的样式名称
        currentRange.Style = ActiveDocument.Styles("自定义交叉引用样式")
        
        Set targetField = Nothing
    Next HL
End Sub

关键说明 #

• 用Range对象替代Selection：避免干扰用户当前选中内容，操作更高效稳定
• 精准识别PageRef字段：通过Field.Type = wdFieldPageRef判断，避免误判其他字段
• 边界防护：添加文档末尾判断，防止无限循环
• 完整覆盖页码：找到PageRef字段后，将范围扩展至字段末尾，确保包含整个页码内容

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