Using Drop Down box that can be edited
in [Document Management]
|
Prev: find whole word only using wild card
Next: Limiting ConvertNumbersToText to only certain parts of a document
From: Francis Cunningham, Jr. on 5 May 2010 08:03 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
From: Graham Mayor on 5 May 2010 09:10 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 My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "Francis Cunningham, Jr." <FrancisCunninghamJr(a)discussions.microsoft.com> wrote in message news:CFA0455E-10DF-4596-A55D-EC1B193544FE(a)microsoft.com... > 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
From: Jay Freedman on 5 May 2010 10:09
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 FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. Graham Mayor wrote: > 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 > > "Francis Cunningham, Jr." > <FrancisCunninghamJr(a)discussions.microsoft.com> wrote in message > news:CFA0455E-10DF-4596-A55D-EC1B193544FE(a)microsoft.com... >> 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 |