Using Drop Down box that can be edited

[Francis Cunningham, Jr.]

Hi,
I have created a form in Word 2007, but would like to have the drop down box
I created to also be overwritten by the user if the items in the drop box
doesn't include their choice. Thanks
fjcunninghamjr

 

[Graham Mayor]

One possibility would be to replace one of the items in the list with a user
input item. You could do this with a macro run on exit from the dropdown
field

Assuming the dropdown field Dropdown1, put an item at the end of the
dropdown list "Enter your own value" then run the following macro on exit
from that field

Dim sChoice As String
Dim fDD As FormFields
Set fDD = ActiveDocument.FormFields
MsgBox fDD("Dropdown1").Result
If InStr(1, fDD("Dropdown1").Result, "Enter your own value") Then
sChoice = InputBox("Enter your own")
With fDD("Dropdown1").DropDown.ListEntries
.Item("Enter your own value").Delete
.Add sChoice
fDD("Dropdown1").Result = sChoice
End With
End If

This replaces the "Enter your own value" item with the input value and sets
that as the result.
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Jay Freedman]

Two more possibilities:

- Use a Combo Box from the Control Toolbox (Word 2003 and before) or from
the Legacy Tools gallery of the Developer ribbon (Word 2007 / 2010). It's
called a "combo box" because it's a combination of a dropdown list and an
edit box, and it's specifically intended for allowing either selection from
the list or manual entry. I don't usually recommend the Control Toolbox
objects, because of the concerns described in the "Appropriateness for the
Task" section of
http://msdn2.microsoft.com/en-us/library/aa140269(office.10).aspx, but if
you just need one combo box it should be OK.

- Create a Userform
(http://gregmaxey.mvps.org/Create_and_employ_a_UserForm.htm) and put a combo
box on it. Store the result in a document variable and display it in the
document with a DocVariable field.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.