基于旧版Drop-Down Form选择显隐文本框时遇编译错误求助

错误根源 #

编译提示“Method or data member not found”是因为无论是旧版FormFields还是现代ContentControls对象，都没有直接的Hidden属性，你尝试调用的属性不存在，导致编译失败。

方案1：控制旧版文本表单域（Legacy Text Form Field） #

旧版表单域无法直接隐藏，需通过修改其对应文本范围的字体隐藏属性实现：

Sub HideText1BasedOnDropdown1()
    Dim dropdownValue As String
    ' 获取旧版下拉框的选中值
    dropdownValue = ActiveDocument.FormFields("Dropdown1").Result
    
    ' 控制旧版文本表单域的显示/隐藏
    With ActiveDocument.FormFields("Text1").Range.Font
        ' 当下拉框选"Yes"时隐藏，否则显示
        .Hidden = (dropdownValue = "Yes")
    End With
End Sub

方案2：控制现代内容控件文本框 #

如果偏好现代内容控件，可在旧版下拉框的退出宏中控制它，通过修改内容控件范围的字体属性，或使用Office 2013+支持的Visible属性：

Sub HideText1BasedOnDropdown1()
    Dim dropdownValue As String
    dropdownValue = ActiveDocument.FormFields("Dropdown1").Result
    
    ' 方法1：修改内容控件文本范围的字体隐藏属性（兼容全版本）
    With ActiveDocument.ContentControls("Text1").Range.Font
        .Hidden = (dropdownValue = "Yes")
    End With
    
    ' 方法2：Office 2013及以上版本可直接设置Visible属性
    ' ActiveDocument.ContentControls("Text1").Visible = (dropdownValue <> "Yes")
End Sub

触发宏设置 #

确保旧版下拉框绑定了退出宏：右键下拉表单域 → 选择「属性」 → 在「退出时运行宏」下拉列表中选择HideText1BasedOnDropdown1。

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