Dropdown box to run macro

[Paul Brown]

Hello all,

I've created a form in Word 97 containing various drop down boxes. The drop
down boxes contain a yes or no selection and based on the selection I would
like to run a specific macro if yes is selected or a different macro if no
is selected. Can anyone help?

Many thanks.

Paul.

 

[Doug Robbins]

Run the macro named a on exit from the form field. Depending upon the
selection b will run if it's "Yes"; c if it's "No"

Sub a()
Dim mydrop
Set mydrop = ActiveDocument.FormFields("Dropdown1")
If mydrop.DropDown.ListEntries(mydrop.DropDown.Value).Name = "Yes" Then
Call b
Else
Call c
End If
End Sub

Sub b()
MsgBox "User selected Yes"
End Sub

Sub c()
MsgBox "User selected No"
End Sub



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Paul Brown]

Many thanks. Works a treat.

Run the macro named a on exit from the form field. Depending upon the
selection b will run if it's "Yes"; c if it's "No"

Sub a()
Dim mydrop
Set mydrop = ActiveDocument.FormFields("Dropdown1")
If mydrop.DropDown.ListEntries(mydrop.DropDown.Value).Name = "Yes" Then
Call b
Else
Call c
End If
End Sub

Sub b()
MsgBox "User selected Yes"
End Sub

Sub c()
MsgBox "User selected No"
End Sub



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP