OLE Word auslesen

[Sidi61]

Hallo zusammen,

zum Thema OLE Automation mit Word gibt es ja viele hilfreiche Foreneinträge, zum Auslesen eines Word-Dokuments habe ich bis jetzt leider noch keine brauchbare Lösung gefunden. Ich möchte den Text gern Zeilenweise einlesen ähnlich wie readln bei Textdateien.

Ich schreibe in ein Word-Dokument wie folgt:

Code:

    //Text aus Fehlerbeschreibung in Word-Dokument schreiben
    for i := 0 to DBMemo_Mangel.Lines.Count -1 do
    begin
      //schreibt den Text aus Memo Zeilenweise in das Worddokument, chr(11) sorgt
      //dafür, dass durch Enter eingeleitete neue Zeilen auch im Word übernommen werden
      WordSelection.TypeText(DBMemo_Mangel.Lines[i]+chr(11));
    end;

Das funktioniert soweit ganz gut - nur wie bekomme ich den Text aus Word wieder zeilenweise heraus?

Folgender Versuch führt dazu, dass der gesamte Text am Stück ausgelesen wird

Code:

    WordApp.Documents.Open(Komabe_file);
    WordDoc := WordApp.ActiveDocument;

    showmessage(inttostr(WordDoc.Paragraphs.count));  //zeigt Anzahl Absätze - in diesem Fall 1
    showmessage(worddoc.paragraphs.item(1).range.text);  //zeigt den gesamten Text am Stück
    showmessage(WordDoc.range.text);  //zeigt ebenfalls den gesamten Text am Stück

Hat jemand eine Idee wie man den Text zeilenweise auslesen kann??

Gruß Sidi61