Handling mit StarOffice

[Snoop007]

ha es geht !
die lösung hab ich auch einer russischen seite gefunden ( ich kann kein russisch )
link : http://www.delphimaster.ru/articles/openoffice/

Delphi-Quellcode:

procedure TOpenOffice.InsertText(const aText: String);
var
   oCursor: Variant;
   oText: Variant;
begin
//get document text object
   oText := Document.GetText;
//create cursor
   oCursor := oText.CreateTextCursor;
//set some text properties
   oCursor.SetPropertyValue('CharColor', 255);
   oCursor.SetPropertyValue('CharShadowed', True);
//insert string
   oText.InsertString(oCursor, aText, false);
//insert line break character
   oText.InsertControlCharacter(oCursor, 0, false);
end;