The legacy controls are members of the Selection.FormFields
collection. The do not have events, the nearest equivalents are the EntryMacro
and ExitMacro
properties.
Sub Macro2()
Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormDropDown
Selection.PreviousField.Select
With Selection.FormFields(1)
.Name = "Dropdown1"
.EntryMacro = "Macro1"
.ExitMacro = "Macro2"
.Enabled = True
.OwnHelp = False
.HelpText = ""
.OwnStatus = False
.StatusText = ""
End With
Selection.FormFields("Dropdown1").DropDown.ListEntries.Clear
End Sub
The ExitMacro
doesn't run on selecting, or changing, a drop-down item, but when tabbing away from the control.
There is some MS information here about these legacy controls.