Forums Neueste Beiträge
 

Textmarke im Serienbrief

15/10/2008 - 15:11 von Torsten Völz | Report spam
Hallo liebe NG,

ich habe einen Serienbrief in dem sich ein Seriendruckfeld und eine
Textmarke befinden. Das Seriendruckfeld enthàlt Informationen wie diese "1x
ABC, 1x XYZ". Ich lese nun per VBA den Inhalt des Feldes aus und ersetze das
Komma durch CRLF und "1x" durch "". Das Ganze habe ich an das Ereignis
MailMergeBeforeMerge gehàngt.
Nun möchte ich den verànderten Inhalt des Seriendruckfeldes in eine
Textmarke schreiben. Leider besteht das Problem darun, dass dies nur für zwei
Datensàtze durchgeführt wird und nicht auch für den Rest.
Ich verwende folgenden Code:
Private Sub APP_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As
Boolean)

Dim bm As Bookmark
Dim rng As Range
Dim Katname As String

Katname =
ActiveDocument.MailMerge.DataSource.DataFields("Catalog_Name3").Value

Katname = Replace(Katname, "1x ", "")
Katname = Replace(Katname, ", ", vbCr)

If ActiveDocument.Bookmarks.Exists("Katalogname") Then
Set bm = ActiveDocument.Bookmarks("Katalogname")
Set rng = bm.Range
rng.Text = Katname
ActiveDocument.Bookmarks.Add Name:="Katalogname", Range:=rng
End If

Katname = ""

End Sub

Wenn ich mir den Inhalt der Variablen "Katname" jeweils mit einer MsgBox
anzeigen (mit auskommentierter If-Schleife), dann werden alle Datensàtze
durchlaufen. Sowie ich aber die If-Schleife aktiviere werden nur die ersten
zwei Datensàtze gedruckt.

Was mache ich falsch?

Danke und Gruß
Torsten
 

Lesen sie die antworten

#1 Thomas Löwe [MS MVP Word]
15/10/2008 - 22:36 | Warnen spam
Hallo Torsten,

"Torsten Völz" schrieb im Newsbeitrag
news:

ich habe einen Serienbrief in dem sich ein Seriendruckfeld und eine
Textmarke befinden. Das Seriendruckfeld enthàlt Informationen
wie diese "1x ABC, 1x XYZ". Ich lese nun per VBA den Inhalt
des Feldes aus und ersetze das Komma durch CRLF und "1x" durch
"". Das Ganze habe ich an das Ereignis MailMergeBeforeMerge gehàngt.
Nun möchte ich den verànderten Inhalt des Seriendruckfeldes in eine
Textmarke schreiben. Leider besteht das Problem darun, dass dies nur
für zwei Datensàtze durchgeführt wird und nicht auch für den Rest.



du hast leider nicht die verwendete Version von Microsoft Office
angegeben. Bitte schließe diese Information bei allen weiteren
Anfragen ein.

Du solltest diese Frage auch mit den Experten in der Newsgruppe
news:microsoft.public.de.word.vba diskutieren. Bitte vermerke
dann auch die verwendete Version von Microsoft Word.

Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.

Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per persönlicher E-Mail.
http://support.microsoft.com

Ähnliche fragen