Microsoft Office Forums - View Single Post - [Solved] Word 2007

skusekd · 09-17-2012, 08:36 AM

Thank you again!

I see what you're saying about the organization of the form, without separate headings it would be a little chaotic. So, back to the simple more organized idea

Problem though, I'm getting this error:

"Complie error: Invalid or unqualified reference" referring to the .Value in the "if .value = 11 Then"

Here's the macro I pasted along with my (minor) changes:

Code:

Sub FreeText()
Dim StrNew As String
With ActiveDocument.FormFields("NAME").DropDown
  If .Value = 11 Then
  StrNew = Trim(InputBox("Input your text", "Free text input"))
  If StrNew = vbNullString Then Exit Sub
    .ListEntries(11).Delete
    .ListEntries.Add StrNew
    .Value = 11
  End If
End With
End Sub