请求修复HVAC下拉菜单插入AutoText的VBA代码，解决5941错误

先帮你梳理下代码里的几个核心问题，这些就是导致你遇到5941错误和逻辑失效的原因：

问题点拆解 #

• FormField引用错误：你写的ActiveDocument.Formfields(hvac)里，hvac是表单域的名称，必须用双引号括起来，否则VBA会把它当成未定义的变量，自然找不到对应的表单成员，直接触发5941错误。
• 语法拼写失误：第三段判断里少了前引号——If ActiveDocument.Formfields(hvac).DropDown.Value = Central Heating System"，这会直接导致语法错误，代码根本跑不通。
• AutoText名称不匹配：比如你判断的是"Packaged Systems"，但插入的却是"Packaged System"（少了末尾的s）；最后PTACs的分支居然插入的是"Central Heating System"，完全和选项不对应，就算代码跑通也会插错内容。
• GoTo滥用导致逻辑混乱：一堆GoTo跳转不仅让代码难读，还容易出现分支遗漏，不如用Select Case来处理下拉选项的判断，逻辑更清晰。

修复后的完整代码 #

Sub InsertHVACAutoText()
    Dim ddValue As String
    Dim targetRange As Range
    
    ' 先获取下拉框的选中值，避免重复引用
    ddValue = ActiveDocument.FormFields("hvac").DropDown.Value
    
    ' 定位到文档末尾，不用Selection，更稳定
    Set targetRange = ActiveDocument.Content
    targetRange.Collapse Direction:=wdCollapseEnd
    
    ' 用SelectCase替代一堆If和GoTo，逻辑更清晰
    Select Case ddValue
        Case "Split Systems"
            ActiveDocument.AttachedTemplate.AutoTextEntries("Split Systems").Insert _
                Where:=targetRange, RichText:=True
        Case "Packaged Systems"
            ActiveDocument.AttachedTemplate.AutoTextEntries("Packaged Systems").Insert _
                Where:=targetRange, RichText:=True
        Case "Central Heating System"
            ActiveDocument.AttachedTemplate.AutoTextEntries("Central Heating System").Insert _
                Where:=targetRange, RichText:=True
        Case "PTACs"
            ActiveDocument.AttachedTemplate.AutoTextEntries("PTACs").Insert _
                Where:=targetRange, RichText:=True
        Case Else
            ' 如果没有匹配的选项，可以在这里加提示或者什么都不做
            MsgBox "未找到对应AutoText条目！"
    End Select
    
    ' 释放对象
    Set targetRange = Nothing
End Sub

额外说明 #

1. 确保你的AutoText条目名称和下拉选项完全一致（包括大小写、空格、复数形式），这是5941错误的常见原因——VBA找不到对应的AutoText成员。
2. 我把重复的Selection操作换成了Range对象，比用Selection更稳定，不会因为用户手动选中内容而干扰代码执行。
3. 如果用数字值判断下拉选项，你可以改成Case 1,2,3,4，但要确保下拉框的选项顺序和数字对应，不过用文本判断更直观不易出错。

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