Da warst du grade schneller. Wie du siehst kannst du Start und End eines bestimmten Bereichs auch ermitteln und z.B. in Variablen packen. Für die 3 letzten Absätze im Dokument z.B. so:
...
Das funktioniert leider nur bis zum letzten Teil, da entsteht durch das Makro selber für jeden Begriff ein neuer Absatz und die Zählung funktioniert nicht mehr. Zumindest vermute ich, dass da das Problem liegt. Angezeigt wird "Laufzeitfehler 4608, Wert nicht im Definitionsbereich" und der Debugger markiert diese Zeile:
wdoc.Range(rStart, rEnd).ConvertToTable Separator:=0
|