mittels Delphi Texte in Word einfügen.

[Norbert987]

Hi Leute,

ich würde gerne mit einem Delphi Programm Texte in Worddokumente einfügen. Allerdings sollten sie hinter dem Cursor eingefügt werden. Nicht am Anfang oder am Ende. Ich habe auch schon ein "Unit" gefunden und zwar von TurboPower OfficePartner. Mein Versuch sieht so aus:

Delphi-Quellcode:

procedure TForm1.ListBoxClick(Sender: TObject); 
var 
str : String; 
begin 
Str := ListBox.Items[WasMarkiert(ListBox)]; 
Str := copy(Str, AnsiPos('. ', Str)+2, Length(Str)-2); 
AddText(Str); 
end; 

procedure TForm1.AddText(Str : String); 
var 
direction, FieldType, Text: OleVariant; 
begin 
direction:= wdCollapseStart; 
// You could add any type of field. 
// There are 91 different types available. 
// See OpWrd2K.pas 
FieldType:= wdHyperlink; //wdFieldAutoText; 
Text:= Str; 
Sel:= OpWord1.Server.Selection; 
Sel.Collapse(direction); 
Flds:= Doc.AsDocument.Fields; 
Fld:= Flds.Add(sel.Range, FieldType, Text, emptyParam); 
end;

an sich funktioniert es alles, nur
FieldType:= wdHyperlink; //wdFieldAutoText;
funktioniert nicht, da ich nicht weiss wie es statt "wdHyperlink" heissen muss, das es ganz normaler Text ist.
würde mich echt super über eure Hilfe freuen
mfg Tobias[delphi]