OLE, Word, Doc-Inhalt in Doc schreiben

[hoika]

Hallo #,

ich habe eine Word-Datei base.doc und eine Langtext.doc.
Die enthält Text-Elemente in der Art.

--Doc-Start--

Sehr <Anrede1> <Anrede2>,

blaaaaa

<Langtext>

--Doc-Ende--

Die Felder mit <> werden vor dem Drucken ersetzt, klar

<Anrede1> <Anrede2> sind dabei normaler Text (String)
<Langtext> allerdings soll ebenfals eine Doc-Datei sein,
mit eigenen Formatierungen usw.

Mit dem Befehl Selection.InsertFile bekomme ich per OLE den Inhalt der Langtext.Doc an die Stelle von <Langtext>.
Wie kann ich die "Cursor" an die Stelle bringen ?
Und funktioniert das auch in Office 2000 (habe hier nur Office 2007) ?


Danke


Heiko

[idefix2]

Wo befindet sich denn der Cursor jetzt nach dem Einfügen, und wo genau willst Du ihn haben (am anfang des eingefügten Textes, am Ende, sonstwo)?

[Mschmidt]

Mit Cursor den Text rauf&Runter zu gehen halt ich für fehlerhaft. Verwende doch Formular-Felder - die sind nativ
ansprechbar.
:-mschmidt

ähmmm, ich glaub ich habs falsch verstanden. vergiss meinen kommentar...

[hoika]

Hallo,

das Format ist vorgegeben ... ;(


Heiko

[shmia]

Ungetestet; könnte aber funktionieren:

Delphi-Quellcode:

Selection.Find.ClearFormatting;
Selection.Find.Text := '<langtext>';
(*
ggf. noch weitere Properties einstellen
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
*)
if Selection.Find.Execute then
  Selection.InsertFile(....

[hoika]

Danke,

ich probier es aus.
Aber erst am Montag, weil ... Weekend !!!!!


Heiko

[p80286]

Hallo Heiko,

der weg von shmia sollte funktionieren, aber ob das in Word200x überall gleich funktioniert??????

Wie wäre es denn wenn Du statt <Anrede> eine Textmarke nutzt, das geht meistens sehr gut.
Und statt <Langtext> verwendest Du diese Word-Feld-Funktion (Dateiladen ?)

Was die Formatierungen (in der Langtext.doc) angeht, traue ich Word nicht über den Weg. Da ist "what you see" noch längst nicht "what you get".

Ich bevorzuge Datenübergabe mit Textmarken und die Formatierunen direkt im Word-doc.

Gruß
K-H