Formfield Userform Listbox
(A Microsoft Word Help & Tip page by Gregory K. Maxey)

Public oFldName As String 'Public declaration makes this data available to the Userform
Public listArray() As String 
Private mstrFF As String
Private i As Long

Sub OnEntryBuildDD_HC()
Dim myFrm As Userform1
  'This is part of the validation process. "mstrFF" stores the name of the formfield with an invalid entry
  If LenB(mstrFF) > 0 Then
    ActiveDocument.FormFields(mstrFF).Select
    mstrFF = vbNullString
  End If
  On Error GoTo Err_Handler
  'Call a function to determine the name of the current formfield
  oFldName = GetCurrentFF.Name
  'Call a function to determine the list items for display
  listArray = GetArray(oFldName)
  'Display the Userform
  Set myFrm = New Userform1
  myFrm.Show
  Exit Sub
Err_Handler:
  MsgBox Err.Number & " " & Err.Decription
End Sub

Private Function GetCurrentFF() As Word.FormField
  With Selection
    If .FormFields.Count = 1 Then
      Set GetCurrentFF = .FormFields(1)
    ElseIf .FormFields.Count = 0 And .Bookmarks.Count > 0 Then
      Set GetCurrentFF = ActiveDocument.FormFields _
                         (.Bookmarks(.Bookmarks.Count).Name)
    End If
  End With
lbl_Exit:
  Exit Function
End Function

Function GetArray(ByRef pName As String) As Variant
  Select Case pName
    Case Is = "Color"
      GetArray = Split("Red,Blue,Green,White,Orange,Yellow,Teal,Lavender,Peach,Brown," _
                 & "Purple,Black,Light Blue,Light Yellow,Light Green,Silver," _
                 & "Gold,Grey, 10% Grey, 15% Grey, 20% Grey, 25% Grey", ",")
      Case Is = "Letter"
        GetArray = Split("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")
        Case Is = "Numbers"
       'Use additional Case Is and GetArray statements for the remaining formfields.
   End Select
lbl_Exit:
  Exit Function
End Function

Sub OnExitCustDD_HC()
Dim myFrm As Userform1
Dim bValidate As Boolean
bValidate = False
  With GetCurrentFF
    If .Result = "" Then Exit Sub
    'Call function to get the list items
    listArray = GetArray(.Name)
    'Compare user entry to list items. Exit when match is found
    For i = LBound(listArray) To UBound(listArray)
      If .Result = listArray(i) Then
        bValidate = True
        Exit For
      End If
    Next i
    'If not found (user typed invalid data in the field) then alert user, clear field data.
    If Not bValidate Then
      MsgBox "Your made an invalid entry." & vbCr & vbCr & " Please choose an item from the list.", _
             vbInformation + vbOKOnly, "Invalid Entry"
      mstrFF = .Name
     .Result = ""
    End If
  End With
lbl_Exit:
  Exit Sub
End Sub

Sub Userform_Initialize()
Dim i As Long
Dim lngLeft As Long, lngTop As Long, lngWidth As Long, lngHeight As Long
  Select Case oFldName
    Case Is = "Color"
      Me.Caption = "Colors"
      'You can specify and custom label caption
      Me.Label1.Caption = "DblClk to select"
      'You can sort the list items
      WordBasic.SortArray listArray, 0
      ListBox1.List = listArray
    Case Is = "Letter"
      Me.Caption = "Letters"
      Me.Label1.Caption = "DblClk to select"
      WordBasic.SortArray listArray, 0
    Case "Number"
      'Use case statements as shown above for remain fields.
  End Select
  'Populate the listbox
  ListBox1.List = listArray
  'Display the Userform adjacent to the formfield.
  Me.StartupPosition = 0
  ActiveWindow.GetPoint lngLeft, lngTop, lngWidth, lngHeight, Selection.Range
  Me.Top = lngTop / 1.33 - 100
  Me.Left = lngLeft / 1.33
  'Set the value of the listbox list item to match previous user selection
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i) = ActiveDocument.FormFields(oFldName).Result Then
      ListBox1.ListIndex = i
      Exit For
    End If
  Next i
lbl_Exit:
  Exit Sub
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Select Case oFldName
    Case Is = "Color"
      ActiveDocument.Range.FormFields("Color").Result = Me.ListBox1.Text
    Case Is = "Letter"
      ActiveDocument.Range.FormFields("Letter").Result = Me.ListBox1.Text
    Case "Number"
     'Use case statements as shown above for remain fields.
  End Select
  'Kill the Userform
  Unload Me
lbl_Exit:
  Exit Sub
End Sub