Hallo,

wer auch immer diesen Thread nach oben geholt hat. Da er nach 3 Jahren noch nicht wirklich gelöst ist, möchte ich einen Codevorschlag unterbreiten:

Sub Liste_Erzeugen()

Dim mylist As ListTemplate
Dim n As Long

n = 25 'Anzahl Listeinträge mit je einem Subeintrag

Set mylist = ActiveDocument.ListTemplates.Add(True)
With mylist.ListLevels(1)
  .NumberStyle = wdListNumberStyleArabic
  .NumberFormat = "(%1)"
  .NumberPosition = CentimetersToPoints(0)
  .TrailingCharacter = wdTrailingTab
  .Alignment = wdListLevelAlignLeft
  .TextPosition = CentimetersToPoints(0.63)
  .TabPosition = wdUndefined
  .ResetOnHigher = 0
  .StartAt = 1
End With
With mylist.ListLevels(2)
  .NumberFormat = ChrW(61623)
  .TrailingCharacter = wdTrailingTab
  .NumberStyle = wdListNumberStyleBullet
  .NumberPosition = CentimetersToPoints(0.63)
  .Alignment = wdListLevelAlignLeft
  .TextPosition = CentimetersToPoints(1.27)
  .TabPosition = wdUndefined
  .ResetOnHigher = 1
  .StartAt = 1
  .Font.Name = "Symbol"
End With

'evtl. weitere Definitionen für level 3 - 9 nach gleichem Schema

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylist

For i = 1 To n
  Selection.TypeText Text:="Element " & i
  Selection.TypeParagraph
  Selection.Range.ListFormat.ListIndent
  Selection.TypeText Text:="Unterpunkt " & i
  If i < n Then
    Selection.TypeParagraph
    Selection.Range.ListFormat.ListOutdent
  End If
Next i

End Sub

Bei diesem Code wird mit jedem Ausführen ein neues Template angelegt. sollt der Code im selben template mehrfach ausgeführt werden, empfehle ich, dem Befehl ActiveDocument.ListTemplates.Add(True) im zweiten Parameter einen Namen mitzugeben. Also z.b. ActiveDocument.ListTemplates.Add(True, "meineListe") und nur einmalig auszuführen. Bei späteren Ausführungen kann dann auf die Listlevels-Definitionen verzichtet werden indem man erst ab Selection.Range.ListFormat.ApplyListTemplate ActiveDocument.ListTemplates("meineListe") ausführt. Für alle weiteren Einstellungen sollte der TE selbst imstande sein.

Gruß Mr. K.