OpenOffice und OLE, wie ?

[LokutusvB]

Um das Ganze abzuschließen, mit folgendem Code kann man einfach den Content des Feldes (Funktionen -> Eingabefeld) ändern:

Delphi-Quellcode:

function EditInput(name, inhalt: String): Boolean;
var
  enum, field: Variant;
begin
  Result := False;
  enum := Document.getTextFields.createEnumeration;
  while enum.hasMoreElements do begin
    field := enum.nextElement;    
    if field.supportsService('com.sun.star.text.TextField.Input') then begin
      if (field.getPropertyValue('Hint') = name) then begin
        field.setPropertyValue('Content', inhalt);
        Document.TextFields.refresh;
        Result := True;
      end;
    end;
  end;
end;