Ein mögliches Problem hab ich jetzt doch noch entdeckt: Wenn im Text anstelle eines normalen " oder formatierten Anführungszeichens „ ein formatiertes Ausführungszeichen “ den Quoteblock einleitet, gibt die Funktion InQuotes korrekterweise FALSCH zurück, da sie davon ausgehen muss, dass dieses einen vorherigen Quoteblock abschließt. Das ist kein Fehler im Code sondern ein Fehler im Dokument und muss dort behoben werden.

Zwei winzige Sachen sind mir noch eingefallen. Kannst du ja noch ergänzen, wenn du magst:
Im Finden-Code solltest du And .Parent.Start >= s durch And .Parent.Start > s ersetzen. Ist noch besser! Außerdem macht es rein visuell Sinn, wenn am Ende des Makros noch Selection.Collapse ausgeführt wird. Dann erkennt man viel schneller, dass das Makro jetzt zu Ende ist.

Gruß Mr. K.