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]