如何在VBA代码中获取Word REF域指向的书签名称

已知Word的REF域（排除书签名称为空的场景）存储在Field对象中，如何通过VBA最佳方式获取该域指向的书签名称？

现有可用的Field对象成员 #

• Field.Type：可与wdFieldRef常量对比，确认当前操作的是REF域而非其他类型域
• Field.Code.Text：可提取完整域代码，例如返回REF MyBookmark \* Upper

自行解析域代码的弊端 #

直接解析Field.Code.Text并非最优方案，存在以下问题：

• 重复实现Word内置逻辑，不同版本的Word解析规则可能与自定义代码产生差异，导致兼容问题
• 目前没有REF域代码语法的权威规范，自行编写解析器属于逆向工程，可靠性无法保障
• Word内部存在解析逻辑不一致的情况：例如在Word 2007中，{REF \n MyBookmark}这类参数与书签名称顺序颠倒的域代码，在文档中可正常渲染，但打开「编辑域」对话框时会显示指向“无”书签；而{REF \* Upper MyBookmark}同样顺序颠倒，对话框却能正常识别书签名称
• 选项间及选项内的空白字符解析规则不一致，导致文档显示与对话框中的解析结果存在差异

最佳解决方案：利用Word内置域选项对话框解析 #

借助Word内置的「域选项」对话框，复用其内部解析逻辑来获取书签名称，具体VBA代码如下：

Function GetRefFieldBookmarkName(objField As Field) As String
    Dim dlgField As Dialog
    Dim strBookmarkName As String
    
    ' 校验是否为REF域
    If objField.Type <> wdFieldRef Then
        GetRefFieldBookmarkName = ""
        Exit Function
    End If
    
    Set dlgField = Dialogs(wdDialogFieldOptions)
    
    ' 加载目标域到对话框，触发Word内部解析
    dlgField.Field = objField
    
    ' 获取解析后的书签名称
    strBookmarkName = dlgField.Bookmark
    
    ' 关闭对话框（无需显示）
    dlgField.Execute wdDialogCancel
    
    GetRefFieldBookmarkName = strBookmarkName
End Function

代码优势

• 完全复用Word原生解析逻辑，避免自定义解析的兼容与可靠性问题
• 无论域代码参数顺序、空白字符格式如何，都能得到与Word文档渲染一致的书签名称
• 无需手动处理复杂的域代码语法规则

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