Ich habe von Martin die Originaldatei zum Testen bekommen. Nach einigem Rumprobieren konnte ich feststellen, das das wesentliche Problem ist das das Makro aufgrund der "alphabetischen Trennzeichen" deshalb stoppt, weil dort durch OO automatisch eine separate Absatzvorlage verwendet wird.
Ändert man:
Code: Alles auswählen
ElseIf cur.ParaStyleName = oIndex.ParaStyleHeading Then
Code: Alles auswählen
ElseIf cur.ParaStyleName = oIndex.ParaStyleHeading OR cur.ParaStyleName = "Index Separator" Then
Leider bringt das insgesamt nicht so sehr viel, denn schaltet man nun zusätzlich mit "On Error Resume Next" im Makro die (interne) Fehlerbehandlung ab dann läuft das Makro läuft zwar durch, aber das Ergebnis ist lückenhaft. Es werden allein von Makro ca. 50 Fehler im 'Fehlerlog' und weitere Fehler sind im Verzeichnis selbst zu sehen (also Fehler die das Makro selbst nicht erkannt hat).
Gruß
Stephan