Word 2007 VBA Combobox Conditional text problem

Mooncat · #1 03-18-2014, 04:21 PM

Hi all,
I'm having problems using a combobox to display text at a bookmark in Word 2007 and would be grateful for any clues

The code I have so far allows the user to select from the combobox and have the selected item text appear within a string at a bookmark when I run the code.
But I would like the user to be able to enter any word into the combobox and have that entry appear within the bookmark.

Example:
I have a combobox with the options Red, Green and Blue.
If pick one of these, the selected one appears at the bookmark,
however I don't know what to do if they should manually type another colour, say orange, into the combobox.

Any Ideas ?

Here is the code so far:

Code:

Sub testCombobox()
Dim objCC As ContentControl
Dim objLE As ContentControlListEntry
Dim isel As String
Set objCC = ActiveDocument.ContentControls(1)
For i = 1 To objCC.DropdownListEntries.Count
  If objCC.DropdownListEntries.Item(i).Text = objCC.Range.Text Then
    Set objLE = objCC.DropdownListEntries.Item(i)
    If objLE.Text = "Red" Then
      isel = " red"
    ElseIf objLE.Text = "Green" Then
      isel = " green"
    ElseIf objLE.Text = "Blue" Then
  isel = "blue"
    End If
  End If
Next i
ActiveDocument.Bookmarks("picked").Range.InsertAfter "You picked " & isel
End Sub

Thanks for reading
Regards,
Dan

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Working with Dropdown/Combobox in word 2007	lucky16	Word	0	01-26-2014 08:11 AM
Populating ComboBox or Drop Down list with contents of a text field	Billy_McSkintos	Word VBA	1	09-13-2011 05:50 AM
Conditional Formatting Problem Excel 2007	namedujour	Excel	6	08-04-2011 10:52 AM
Array into ComboBox + Macro-Text into ActiveDocument	Vivi	Word VBA	1	01-27-2010 07:03 AM
Conditional Text Adding - Word 2003	chuck	Mail Merge	0	06-17-2009 08:09 AM