Word下拉框添加StyleRef引用的VBA代码报错求助

需求：父字段设为YES/NO下拉框，选中YES时，子字段自动填充已创建的、带StyleRef引用的字段内容，避免重复输入。原代码中指定部分出现编译/语法错误，修正方案如下：

原错误代码 #

Sub PopulateddStatus()
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("PARENT FIELD")
    Set xState = ActiveDocument.FormFields("DEPENDENT FIELD")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Yes"
               ' 错误部分：直接使用Word域代码，VBA无法识别语法
               .Add (StyleRef (Style4)\ *MERGEFORMAT)
            Case "No"
                .Add "Carrier Here"
        End Select
    End With
End Sub

错误原因 #

StyleRef (Style4)\ *MERGEFORMAT是Word域代码的写法，不能直接在VBA中作为参数传递给.Add方法。VBA需要先获取该域对应的文本结果，再将文本添加到下拉列表中。

修正后的代码 #

Sub PopulateddStatus()
    Dim xDirection As FormField
    Dim xState As FormField
    Dim styleRefText As String
    Dim tempField As Field
    
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("PARENT FIELD")
    Set xState = ActiveDocument.FormFields("DEPENDENT FIELD")
    On Error GoTo 0 ' 恢复默认错误处理，避免隐藏其他问题
    
    If xDirection Is Nothing Or xState Is Nothing Then Exit Sub
    
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Yes"
                ' 临时插入StyleRef域获取目标样式的文本结果
                Set tempField = ActiveDocument.Fields.Add( _
                    Range:=ActiveDocument.Range(0, 0), _
                    Type:=wdFieldStyleRef, _
                    Text:="Style4")
                styleRefText = tempField.Result.Text
                tempField.Delete ' 删除临时插入的域
                
                ' 将获取到的文本添加到下拉列表
                .Add styleRefText
            Case "No"
                .Add "Carrier Here"
        End Select
    End With
End Sub

关键说明 #

1. 通过ActiveDocument.Fields.Add临时插入StyleRef域，获取指定样式（Style4）对应的文本内容
2. 获取结果后删除临时域，避免污染文档内容
3. 恢复错误处理逻辑（On Error GoTo 0），防止On Error Resume Next隐藏其他代码问题

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