Word: DropDown entry change the entry of another DropDown

[glockster]

I'm trying this code in a macro:

Sub email()
If DropDown2.Value = "Mike Smith" Then
DropDown3.Value = "1111"
DropDown4.Value = "Mike"
End If
End Sub

I want the selection of DropDown2 to change the contents of DropDowns 3 and 4.

 

[Von Pookie]

Go into the properties of DropDown2. Find the "Run macro on" section and select this macro from the dropdown under the "Exit" field.

When you tab (or click) out of DropDown2, the assigned macro should then run.

 

[glockster]

Thanks!
It's giving me an error msg, I think my code is wrong but don't know enough about Word to make it right.
Any ideas on what's wrong or any good forums like this one specific to Word?

 

[Von Pookie]

I did a quick little test--when I tried it with your macro as posted above, the main problem is that you named the macro 'email.'

There is an Email object in Word, so you don't want to name macros the same as any keywords VBA uses.

I haven't done much with VBA for Word myself, though. A couple of forums you may want to have a look at:
http://www.theofficeexperts.com/forum/
http://www.vbaexpress.com/forum/

 

[Von Pookie]

Ah, ok. I was able to get it to work in my sample document.

Word uses different properties than Excel. So for example, the value of the dropdown controls is returned by Result, not Value. Go figure. This worked for me:

Sub email2()
If ActiveDocument.FormFields("Dropdown2").Result = "Mike Smith" Then
    ActiveDocument.FormFields("Dropdown3").Result = "1111"
    ActiveDocument.FormFields("Dropdown4").Result = "Mike"
End If
End Sub

You also need to make sure you have the spelling of the fields *exact*. "DropDown2" is not the same as "Dropdown2" which is the default capitalization Word uses.