In Word in einer Fussnote und -zeile Text ersetzen

[Stefan Bachmann]

Hallo

Ich möchte in Word über OLE in der Fussnote und -zeile Text ersetzen (Platzhalter). In Word kann dies direkt mit Suchen/Ersetzen ausgeführt werden, was über OLE nicht funktioniert. Ich setze Delphi 5 Enterprise und Word 97 ein. Weiss jemand Rat ?

[Andreas Kosch]

Hallo,

ich habe vor einiger Zeit über Textmarken einen variablen Text in die Fusszeile eingesetzt. Dazu waren für <b>Word 95</b> (WordBASIC) jeweils 4 Arbeitsschritte notwendig: <br>
1. vMSWord.AnsichtFußzeile; <br>
2. vMSWord.BearbeitenTextmarke(Name := sPos, Gehezu := VBA_TRUE);<br>
3. vMSWord.Einfügen(sTxt);<br>
4. vMSWord.AnsichtKopfFußzeileSchließen; <br>

Ab Word 97 (VBA) sollte der folgende Weg erfolgreich sein (habe ich jedoch nicht ausprobiert): <br>
1. vMSWord.WordBasic.ViewFooter;<br>
2. vMSWord.ActiveDocument.Bookmarks(sPos).Select;<br>
3. vMSWord.WordBasic.Insert(sTxt);<br>
4. vMSWord.WordBasic.CloseViewHeaderFooter; <br&gt