Drop Down Lists

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Sue - 03 Jan 2005 19:25 GMT

I am new to VBA. I have a document that is 27 pages long and has approximately 150 drop down fields. The drop down fields will all contain the drop down items. Instead of manually entering the 4 values to each drop down field, how do I set up a macro that will autopopulate all of the drop down boxes with the same information.

Thanks !
S~

Reply to this Message

Greg - 03 Jan 2005 20:16 GMT

Sue,

Maybe something like:

Sub ScratchMacro1()

Dim fField As FormField

For Each fField In ActiveDocument.FormFields
If fField.Type = wdFieldFormDropDown Then
With fField.DropDown.ListEntries
.Add Name:="Blue"
.Add Name:="Green"
.Add Name:="Red"
.Add Name:="Yellow"
End With
End If
Next
End Sub

Reply to this Message

Sue - 04 Jan 2005 16:50 GMT

Greg -

Thanks for the code. It worked perfectly.

S~

Reply to this Message