Need a VBA code for autotext from dropdown menu - vba

Question

I'm writing a code to select a specific autotext from a dropdown list. I've not written code since the late 1970s the old Basic A...I've forgotten most of it.
The dropdown list is called HVAC
the text to insert is in an autotext file called "Split Systems" or whichever text associated with the dropdown items
The error message is "5941 the requested member of the collection does not exist"
I've tried using the value of 1,2,3,or 4 in the if statement line instead of the "Split...", it doesn't work either
Where is issue or how should I code it.
MY code follows:
Sub one()
If ActiveDocument.Formfields(hvac).DropDown.Value = "Split Systems" Then GoTo 10 Else GoTo 20
10
ActiveDocument.Content.Select
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("Split Systems").Insert _
Where:=Selection.Range, RichText:=True
GoTo 100
20
If ActiveDocument.Formfields(hvac).DropDown.Value = "Packaged Systems" Then GoTo 25 Else GoTo 30
25
ActiveDocument.Content.Select
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("Packaged System").Insert _
Where:=Selection.Range, RichText:=True
GOto 100
30
If ActiveDocument.Formfields(hvac).DropDown.Value = Central Heating System" Then GoTo 35 Else GoTo 40
35
ActiveDocument.Content.Select
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("Central Heating System").Insert _
Where:=Selection.Range, RichText:=True
GoTo 100
40
If ActiveDocument.Formfields(hvac).DropDown.Value = "PTACs" Then GoTo 45
45
ActiveDocument.Content.Select
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("Central Heating System").Insert _
Where:=Selection.Range, RichText:=True
100
End Sub
Tried everything I know

Answer 1

Word now has Building Block Gallery Content Controls that eliminate the need to add code to dropdowns. Choose the Developer tab, then choose Building Block Gallery Content Control in the Controls group. Use the Properties button in the Controls group to point the control at AutoText. The only significant drawback is that this control doesn't currently work in Word for Mac.

Answer 2

Why are you trying to reinvent the wheel?
Look at AutoTextList and Building Blocks Gallery Content Control
These two features built into Word create drop downs of AutoText or other Building Blocks. What are you trying to do that cannot be accomplished using one of them?
Here is my writing on the Building Blocks Gallery Content Control.
Here is a link to a sample template with both.
The Content Control gives a very nice drop-down gallery.
Here is a link to vba to insert AutoText/Building Blocks. (It varies depending on the location of the AutoText.)
Note: all links are to my writing.

Answer 3

Use Field Coding rather than vba for this
Since you want to select something in your list and have the AutoText appear in a different location in the document, this could be done with either an AutoText field or with an IF Field.
The AutoText Field would only be useful if what is in your dropdown is the exact name of an AutoText entry's name. This is unlikely.
However, the AutoText Field could be combined in an IF Field that tests the choice in the dropdown.
Here is an example where the choice in the dropdown is "Choice 1," the bookmark name of the Dropdown is "Location" and the corresponding AutoText entry is named "TextPart123."
The properties in your dropdown must include Calculate on Exit checked.
{ IF { Location } = "Choice 1" "{ AutoText TextPart123 }" }
For the dropdown to work, that part of the document must be protected for filling in forms.
Here is a temporary link to a sample document with a dropdown and fields like the one above. https://www.dropbox.com/s/wbfnxoji0uvoikd/deleteme%20dropdown%20for%20conditional%20autotext.docx?dl=0
The first two choices trigger different building blocks. The third choice does not trigger anything.
To trigger the change, you need to exit from the dropdown. Typically this is done using the Tab key.
Note that because there are currently no AutoText entries built into Word, the AutoText field in the sample calls a couple of Watermarks that are built in. The field works with any Building Block, including AutoText.
If you absolutely need to use vba to insert AutoText rather than use the AutoText field, see my page on Boilerplate in Word, specifically on using vba to insert building blocks. As you've discovered, with the entry of Building Blocks in 2007 the code to insert became finicky.