rtf (oder doc) Datei nach Formatierung getrennt zerlegen

[tr909]

Moin. Ich habe folgendes Problem. Ich habe eine doc-Datei(kann aber auch nach rtf Konvertiert werden, falls es so einfacher ist), in der div. Artikel stehen. Diese haben als Überschrift jeweils ein 4-5 stellige Zahl, in einer bestimmten Formatierung, die sonst nirgends auftaucht. Nun will ich das gesammte Dokument automatisch zerlegen, und zwar so das ich für jeden "Artikel" eine eigene Datei habe.

Ich hab mir das in etwa so gedacht um an die Zeilen zu kommen, in denen ein neuer Artikel anfängt.

Delphi-Quellcode:

for i := 0 to JvRichEdit1.Lines.Count - 1 do
  begin
    JvRichEdit1.SelStart := count;
    count := count + Length(JvRichEdit1.Lines[i]);
    JvRichEdit1.SelLength := Length(JvRichEdit1.Lines[i]);
    if fsBold IN JvRichEdit1.SelAttributes.Style then
      Showmessage(IntToStr(i));
  end;

Leider bekomme ich als Ergebniss immer nur die letzte Zeile
Wenn es so wenigsten klappen würde, könnte ich danach ja noch die weiteren Kriterien untersuchen.
Am schönsten wäre ja sowas wie FindTextAttributes mit dem man gezielt nach z.B. Tahoma, 22pt, bold suchen könne

Gruß
tr909