OLE Delphi Textmarken überprüfen gegebenfalls setzen

[Karstadt]

Hallo. Ich weis wie ich einen Worddokument öffnen kann und einen Textformularfeld ein Wert zuweisen kann.

Nun möchte ich einen neuen Textformularfeld anlegen (wenn dieser nicht existiert).

Z.b. Textformularfeld „name“

Wie kann ich das machen?

Delphi-Quellcode:

with Word.ActiveDocument do
begin
//???
end;

Kann ich irgendwo hilfe zu den "Word -> OLE finden" bzw. gibt es ein Buch dafür?

Dankeschön!

[Bernhard Geyer]

Zitat von Karstadt:

Kann ich irgendwo hilfe zu den "Word -> OLE finden" bzw. gibt es ein Buch dafür?

MSDN

[mkinzler]

Du kannst auch in Word die Aufzeichnung von Makros aktivieren, und dann die aufgezeichneten Makros ind Delphi übertragen. Gehts zwar nicht immer, aber einfache Vorgänge kann man so gut automatisieren.

[Karstadt]

Zitat:

Du kannst auch in Word die Aufzeichnung von Makros aktivieren, und dann die aufgezeichneten Makros ind Delphi übertragen. Gehts zwar nicht immer, aber einfache Vorgänge kann man so gut automatisieren.

Es wäred für mich einfacher das per Delhi syntax realisieren.

Bei diese MSDN blickte ich in moment nicht durch, muss ich mich einabeiten. Einen Direkten Link für Word 2000 wäre mir sehr hilfreich

[mkinzler]

Da die Wordkomponenten nur Wrapper für doe COM-Objekte sind, programmierst du "quasi" in VBA.

[Keldorn]

Ein Textformularfeld kannst du so erzeugen (Server-kompos):

Delphi-Quellcode:

Var _oleType:olevariant;
    aFormfield:Formfield;
begin
  WordApplication1.Connect;
  try
    with WordApplication1 do
      begin
        _oletype:=wdFieldFormTextInput;
        aFormfield:=Selection.FormFields.Add(Selection.Range,_oleType);
        aFormfield.name:='NameDerMarke';
        aFormfield.Result:='Inhalt';
        //Vorgabetext: bleibt erhalten, wenn dasDok entschützt und wieder geschützt ist.
        //wenn du Textmarken als Default-text setzen willst, nimm besser auch diese Eiogenschaft
        aFormfield.TextInput.Default:='VorgabeText';
      end;
  finally
    WordApplication1.Disconnect;
  end;
end;

Mfg Frank