Tweet
hallo zusammen,
ich soll eine textverarbeitung schreiben, in welcher ich über eine feldauswahl felder in mein dokument einfügen soll und zwar möglichst
an der cursorposition und nicht am ende des dokuments. diese felder
sollen dann ersetzt werden. bis jetzt mache ich daß wie folgt:
aRange ist vom typ olevariant; aDoc enthält das oleobjekt des olecontainers
aRange := aDoc.Range(EmptyParam, EmptyParam);
aDoc.MailMerge.Fields.Add(aRange, 'TESTFELD');
zum ersetzen der felder:
while aDoc.MailMerge.Fields.Count > 0 do
begin
aRange := aDoc.MailMerge.Fields.Item(1).Code;
aDoc.MailMerge.Fields.Item(1).Delete;
aRange.InsertAfter('TESTINHALT');
end;
das ist wahrscheinlich alles schwer gefuddelt, funktioniert aber soweit;
bis auf die tatsache das die felder immer am ende und nicht an der
gewünschten position eingefügt werden.
wäre schön, wenn jemand ein paar nützliche tipps für mich hat.
schon mal vielen dank im voraus
ich soll eine textverarbeitung schreiben, in welcher ich über eine feldauswahl felder in mein dokument einfügen soll und zwar möglichst
an der cursorposition und nicht am ende des dokuments. diese felder
sollen dann ersetzt werden. bis jetzt mache ich daß wie folgt:
aRange ist vom typ olevariant; aDoc enthält das oleobjekt des olecontainers
aRange := aDoc.Range(EmptyParam, EmptyParam);
aDoc.MailMerge.Fields.Add(aRange, 'TESTFELD');
zum ersetzen der felder:
while aDoc.MailMerge.Fields.Count > 0 do
begin
aRange := aDoc.MailMerge.Fields.Item(1).Code;
aDoc.MailMerge.Fields.Item(1).Delete;
aRange.InsertAfter('TESTINHALT');
end;
das ist wahrscheinlich alles schwer gefuddelt, funktioniert aber soweit;
bis auf die tatsache das die felder immer am ende und nicht an der
gewünschten position eingefügt werden.
wäre schön, wenn jemand ein paar nützliche tipps für mich hat.
schon mal vielen dank im voraus
Comment