1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

function TOLE_OpenOffice.Connect:boolean;
var rueckgabe : boolean;
begin
    try
      Service := CreateOleObject('com.sun.star.ServiceManager');
      Desktop := Service.createInstance('com.sun.star.frame.Desktop');
      rueckgabe := true;
    except
      rueckgabe := false;
    end;
    result := rueckgabe;
end;



function TOLE_OpenOffice.Open:boolean;
var rueckgabe : boolean;
begin
  try
    Document := Desktop.LoadComponentFromURL(
              'private:factory/swriter',
              '_blank',
              0,
              VarArrayCreate([0, - 1], varVariant));
    rueckgabe := true;
    setze_Doc_Type('s');
  except
    rueckgabe := false;
  end;
  result := rueckgabe;
end;


function TOLE_OpenOffice.ErsetzeBookmark(name,inhalt:String):boolean;
var objtext, tc, bm, li: Variant;
    i : integer;
    rueckgabe : boolean;
begin
  rueckgabe := false;
  try
    objText := Document.getText;
    tc := objText.createTextcursor;
    li := Document.Bookmarks.getElementNames;
    for i := VarArrayLowBound(li,1) to VarArrayHighBound(li,1) do
    begin
      if (uppercase(li[i]) =  uppercase(name)) then
      begin
        bm := Document.Bookmarks.getbyName(li[i]);
        tc := Document.Text.createTextCursorByRange(bm.Anchor);
        tc.string := inhalt;
        rueckgabe := true;
      end;
    end;
  except
    rueckgabe := false;
  end;
  result := rueckgabe;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function TOLE_OpenOffice.SaveFileasPDF(sFile: String): boolean;
var  wProperties, fOpenOffice: variant;
     rueckgabe: Boolean;
begin
  try
    wProperties := VarArrayCreate([0, 3], varVariant);
    wProperties[0] := Service.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    wProperties[0].Name := 'FilterName';
    case Doc_Type of
      oodtcalc    : wProperties[0].Value := 'calc_pdf_Export';
      oodtwriter  : wProperties[0].Value := 'writer_pdf_Export';
      oodtdraw    : wProperties[0].Value := 'draw_pdf_Export';
      oodtmath    : wProperties[0].Value := 'math_pdf_Export';
      oodtunknown : wProperties[0].Value := 'writer_pdf_Export';
    end;


    wProperties[1] := create_PropertyValue('CompressionMode', '1');
    wProperties[2] := create_PropertyValue('Pages', 'All');
    wProperties[3] := create_PropertyValue('Overwrite', TRUE);
    Document.StoreToURL(ToOOPfad(sFile), wProperties);
    rueckgabe := true;
  except
    rueckgabe := false;
  end;
  result := rueckgabe;
end;					

1:

wProperties[0].Value := 'writer_pdf_Export';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TOLE_OpenOffice.SaveFileasPDF(sFile: String): boolean;
var  wProperties, fOpenOffice: variant;
     rueckgabe: Boolean;
begin
  try
    wProperties := VarArrayCreate([0, 3], varVariant);
    wProperties[0] := Service.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    wProperties[0].Name := 'FilterName';
//    case Doc_Type of
//      oodtcalc    : wProperties[0].Value := 'calc_pdf_Export';
//      oodtwriter  :
      wProperties[0].Value := 'writer_pdf_Export';
//      oodtdraw    : wProperties[0].Value := 'draw_pdf_Export';
//      oodtmath    : wProperties[0].Value := 'math_pdf_Export';
//      oodtunknown : wProperties[0].Value := 'writer_pdf_Export';
//    end;


//    wProperties[1] := create_PropertyValue('CompressionMode', '1');
//    wProperties[2] := create_PropertyValue('Pages', 'All');
//    wProperties[3] := create_PropertyValue('Overwrite', TRUE);
    Document.StoreToURL(ToOOPfad(sFile), wProperties);
    rueckgabe := true;
  except
    rueckgabe := false;
  end;
  result := rueckgabe;
end;					

1:
2:
3:
4:
5:
6:

function TOLE_OpenOffice.create_PropertyValue(PropName: string; PropValue: variant): variant;
begin
    Result := Service.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Result .Name := PropName;
    Result .Value := PropValue;
end;					

1:
2:
3:

    wProperties[1] := create_PropertyValue('CompressionMode', '1');
    wProperties[2] := create_PropertyValue('Pages', 'All');
    wProperties[3] := create_PropertyValue('Overwrite', TRUE);