Open Office Automation

[pmoegenb]

Hallo Steven,

heißt das, dass der Code problemlos durchläuft wenn eine Textmarke vorhanden ist ? In diesem Fall müsstest Du abfragen, ob die Textmarke im Dokument vorhanden ist.

Beispiel:

Delphi-Quellcode:

function TOLE_OpenOffice.TxTBookmark(name,inhalt:String):boolean;
var
   VBookMark, vTextCursor: OleVariant;
begin
     Result := true;
     If Document.BookMarks.hasByName(name) = true then
        begin
        try
        vBookMark := Document.BookMarks.getByName(name);
        vTextCursor := vBookMark.Anchor.Text.createTextCursorByRange(vBookMark.Anchor);
        vTextCursor.SetString(inhalt);
        except
        Result := false;
        end;
        end;
end;

Richte dazu Dein Augenmerk auf den Codeschnipsel If Document.BookMarks.hasByName(name) = true then.