Word per OLE - einzelne Seiten in RTF oder HTML konvertieren und in Stream schreiben

[KessiJones2021]

Hallo zusammen,

ich suche eine Möglichkeit, eine Word-datei per OLE zu öffnen und die einzelnen Seiten entweder in ein RTF oder ein HTML zu konvertieren und diese dann wieder in einen Stream oder einen Langen String zu schreiben.
Eine Alternative wäre, das Word-Dokument zuerst in ein RTF zu konvertieren und dann die einzelnen Seiten in jeweils in einen Stream zu schreiben.

Für Lösungsvorschläge wäre ich sehr dankbar.

Das Öffnen des Dokumentes, und das Erkennen der Seitenanzahl funktioniert prächtig.

Code:

procedure OpenTheDoc
var
    l_WordApp, l_Document: OleVariant;
    p_ErrorText : string;
    n_PageCount: Integer; 
begin
    l_WordApp := CreateOleObject('Word.Application');
    if (VarType(l_WordApp) <> varDispatch) then
    begin
        p_ErrorText := 'Fehler beim Aufruf von Word.Application!';
    end;

    try
        l_Document := l_WordApp.Documents.Open(p_FileName);
        if (VarType(l_Document) <> varDispatch) then
        begin
            p_ErrorText := 'Fehler beim Öffen der Datei ' + p_FileName + ' !';
        end
        except
        on E:Exception do
        begin
            p_ErrorText := 'Fehler beim Öffen der Datei ' + p_FileName + ' !';
        end;

        n_PageCount := l_Document.ComputeStatistics(2);

    finally
        // Disconnect Microsoft Word
        if (VarType(l_Document) = varDispatch) then
        begin
            l_Document.Close(l_SaveChanges);
        end;
end;