OpenOffice.info

Code: Alles auswählen

procedure TForm1.CallStaroffice;
var
  sPfad,                    //Pfad der Vorlage, mit Dateinamen
  sDocument: String;        //Dokumentenpfad
  vDocument,                //
  vServiceManager,          //Ole-Objekt
  vStarDesktop,             //Instanz von vServiceManager
  ooValue,
  ooReflection,
  ooParams: Variant;

begin
  sPfad := GetCurrentDir + '\StarVor.stw';
  sDocument := 'file:///' + StringReplace(sPfad, '\', '/', [rfReplaceAll]);

  vServiceManager := CreateOleObject('com.sun.star.ServiceManager');
  vStarDesktop := vServiceManager.createInstance('com.sun.star.frame.Desktop');

  ooParams := VarArrayCreate([0, 0], varVariant);
  ooReflection := vServiceManager.createInstance('com.sun.star.reflection.CoreReflection');
  ooReflection.forName('com.sun.star.beans.PropertyValue').createObject(ooValue);
  ooValue.Name := 'AsTemplate';
  ooValue.Value := False;
  ooParams[0] := ooValue;

  vDocument := vStarDesktop.LoadComponentFromURL( sDocument, '_blank', 0, ooParams);


end;

Code: Alles auswählen

Sub Vorlage_bearbeiten
Dim oDokument as Object
Dim sUrl as String
Dim Dummy(0) as New com.sun.star.beans.PropertyValue
Dummy(0).Name = "AsTemplate"
Dummy(0).Value = "False"
sUrl = "file:///C:/Programme/StarOffice7/share/template/german/personal/faxpriv.stw"
oDokument = StarDesktop.loadComponentFromURL ( sUrl , "_blank", 0, Dummy() )
End Sub

Code: Alles auswählen

VDoc := StarDesktop.LoadComponentFromURL( Pfad + Datei, '_blank', 0, VarArrayCreate([0, - 1], varVariant));