Sub test()
  Selection.EndKey Unit:=wdLine
  Selection.TypeParagraph
  Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput
  Selection.Font.Bold = True
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeText Text:=":"
  Selection.Font.Bold = False
  Selection.TypeText Text:="  "     'this is where the spaces were added
  Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput
  Selection.HomeKey Unit:=wdLine
  Dim aFld As FormField
  For Each aFld In Selection.Paragraphs(1).Range.FormFields
    aFld.TextInput.EditType Type:=wdRegularText, Default:="", Format:="First capital"
  Next aFld
  Do While Selection.Paragraphs(1).Range.Bookmarks.Count > 0
    Selection.Paragraphs(1).Range.Bookmarks(1).Delete
  Loop
End Sub