How to Use a Combo Box with a Text Form Field (118482)

MORE INFORMATION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Create the following macro. To create the macro, from the Tools menu, choose Macro. Type "ComboBox" under Macro Name and choose the Create button. Type the following macro. (Make sure there is only one "Sub MAIN" and one "End Sub" in your macro.) Close and save the macro.

Sub MAIN
Dim Array$(3)
Array$(0) = "This"
Array$(1) = "is"
Array$(2) = "a"
Array$(3) = "test"
Begin Dialog UserDialog 320, 144, "Microsoft Word"
     ComboBox 10, 6, 160, 108, Array$(), .Text
     OKButton 201, 8, 88, 21
     CancelButton 201, 35, 88, 21
End Dialog
Dim dlg1 As UserDialog
n = Dialog dlg1
Select Case n
     Case - 1
          Dim dlg2 As FormFieldOptions
          GetCurValues dlg2
          SetFormResult dlg2.Name, dlg1.Text
     Case Else
End Select
End Sub
				

In your form, add a text form field. To insert this field, choose Form Field from the Insert Menu, choose Text and choose the OK button. Double- click the text form field. In the Text Form Field Options dialog box, select the ComboBox macro from the list of macros under Run Macro On Entry. Choose the OK button. When the form is finished, choose Protect Document from the Tools menu. In the Protect Document dialog box, choose Forms and choose the OK button. When you tab to this form field, the combo box will display.