Sub useFormInhaltFuellen()
  'nach Reihenfolge im Doku sortiert
  'ohne Kopf- und Fußzeile
  Dim aDoc As Word.Document, aBkmk As Bookmark, v As String
  Dim aRng As Range, strArray() As String
  
  Set aDoc = ActiveDocument
  If aDoc.Bookmarks.Count = 0 Then
    MsgBox "kein Textmarken im Dokument enthalten!"
    Exit Sub
  End If
  
  For Each aBkmk In aDoc.Bookmarks
    Set aRng = aBkmk.Range
    aRng.Collapse Direction:=wdCollapseStart
    If Not aRng.Font.Hidden Then
      v = v & "|" & aBkmk.Name
    End If
  Next aBkmk
  v = Mid(v, 2)                      'remove the leading separator
  strArray = Split(v, "|")
  ufInhalt.ListBox1.List = strArray  'Listbox1 eintragen
End Sub