Word 2007

macropod · #1 09-17-2012, 08:14 PM

That may be because you don't have 11 entries - your previous examples only had 10.

FWIW, you can get around the need to keep count of how many entries there are by using:

Code:

Sub FreeText()
Dim StrNew As String, i As Long
With Selection.FormFields(1).DropDown
  i = .ListEntries.Count
  If .Value = i Then
    StrNew = Trim(InputBox("Input your text", "Data Entry", .ListEntries(i).Name))
    If StrNew = vbNullString Then Exit Sub
      .ListEntries(i).Delete
      .ListEntries.Add StrNew
      .Value = i
  End If
End With
End Sub

skusekd · #2 09-19-2012, 07:54 AM

Thank you SO much!

It works perfectly!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2007 Cannot Drag and Drop	Rbooks	Word	7	02-05-2015 11:27 AM
word 2007 - space issue	dupefree	Word	1	06-27-2012 06:05 AM
Dependent drop down lists in Word 2007	benbenasc	Word VBA	0	08-24-2011 06:34 AM
Word 2007 Issue	dollsgen	Word	1	08-21-2010 09:48 PM
Converting issue 2003 word to 2007(new to 2007 office)	lbrown3	Word	0	01-30-2010 07:25 PM