Registriert seit: 15. Jan 2003
331 Beiträge
Delphi 6 Personal
|
Re: Handling mit StarOffice
26. Aug 2004, 16:35
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;
|