OLE Delphi Textmarken überprüfen gegebenfalls setzen

[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