Seriendurckfelder verändern mit VBA
DocBi
ich habe ein Problem mit dem Ändern von Seriendruckfeldern (WORD
2000). Der Hintergrund:
Wir haben Druckvorlagen, die mit Steuersatzdateien verbunden sind.
Diese Steuersatzdateien sind nun überarbeitet worden und haben z.T.
neue Bezeichungen für die header erhalten.
Um nicht alle Vorlagen von Hand umarbeiten zu müssen, versuche ich ein
Makro über das Vorlagen-Verzeichnis laufen zu lassen, das
a) prüft, ob die Vorlage mit einer betroffenen Steuersatzdatei
verknüpft ist und sie mit der neuen Steuersatzdateie verknüpft.
(Funktioniert bereits)
b) Bezeichnungen einzelner Seriendruckfelder anpasst (also z.B. das
Seriendruckfeld "Postleitzahl" umbenennt in "Empfaenger_PLZ".
Der zweite Teil klappt leider gar nicht. Über
For Each feld In Documents("c:\test\testdokument.doc").MailMerge.Fields
If InStr(1, feld.Code.Text, "Postleitzahl", 1) Then
...
End If
Next feld
habe ich zwar eine Schleife, die alle Felder durchsucht, aber mir
fehlt ein Zugriff , um den "Code.Txt" zu überschreiben.
Hat vielleicht jemand eine Idee?
Vielen Dank vorab!
Hans
Thomas Gahler
Vielleicht noch einen richtigen Namen im Newsreder eintragen, wir leiben das
und du findest deine alten Beiträge viel schneller.
> b) Bezeichnungen einzelner Seriendruckfelder anpasst (also z.B. das
> Seriendruckfeld "Postleitzahl" umbenennt in "Empfaenger_PLZ".
Das ist ein Lösungsansatz der schon öfters verfolgt wurde
- Feldfunktion einschalten
- Suchen/Ersetzen des Bezeichners
- Feld aktualisieren
- Feldfunktion abschalten
--
Thomas Gahler
MVP für WordVBA
- Windows XP (SP2), Office XP (SP3)
DocBi
Da hab ich mich wohl als Greenhorn geoutet, wie? - Bin tatsächlich
absolut neu (hier) und noch nicht so wirklich auf dem Laufenden, was
Namen, Nicknames & Co angeht. Sorry! Ich gelobe Besserung...
Det Tipp war auf jeden Fall klasse; leicht modifiziert läuft jetzt
alles!
Danke und Gruß,
hans bisterfeld