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.

markieren

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;

Am einfachsten funktioniert die OLE-Automatisierung wenn man zunächst versucht, die gewünschten Aktionen nur in Word durchzuführen. Beispielsweise Datei öffnen, Zeilen markieren und kopieren, drucken, speichern usw.

Wenn man dann alles in Word als Makro aufzeichnet, lassen sich die Funktion unter Verwendung des Makro-Codes per OLE-Automatisierung ganz leicht nachbauen.

Hallo,

vielleicht so.

https://docs.microsoft.com/de-de/off...i/word.saveas2

Die Antwort passt jetzt nicht ganz. Im Prinzip in Word Speichern( konvertieren) und dann weiterverarbeiten.

Gruß