MailMergeDataSource.RecordCount-Eigenschaft (Publisher)

  • Artikel

Gibt eine lange, die die Anzahl der Datensätze in der Datenquelle darstellt. Schreibgeschützt.

Syntax

Ausdruck. Recordcount

Ausdruck Eine Variable, die ein MailMergeDataSource-Objekt darstellt.

Rückgabewert

Long

Beispiel

In diesem Beispiel werden Postleitzahlen in der verknüpften Datenquelle auf fünf Ziffern überprüft. Wenn die Länge der Postleitzahl weniger als fünf Ziffern beträgt, wird der Datensatz vom Seriendruckvorgang ausgeschlossen.

In diesem Beispiel wird davon ausgegangen, dass es sich bei den Postleitzahlen um US-Postleitzahlen handelt. Sie können dieses Beispiel ändern, um nach Postleitzahlen zu suchen, bei denen ein vierstelliger Locatorcode an die Postleitzahl angefügt ist, und dann alle Datensätze ausschließen, die den Locatorcode nicht enthalten.

Sub Validate 
 
 Dim intCount As Integer 
 With ActiveDocument.MailMerge.DataSource 
 
 'Set the active record equal to the first included record in the 
 'data source 
 .ActiveRecord = 1 
 Do 
 intCount = intCount + 1 
 
 'Set the condition that field six must be greater than or 
 'equal to five digits in length 
 If Len(.DataFields.Item(6).Value) < 5 Then 
 
 'Exclude the record if field six contains fewer than five digits 
 .Included = False 
 
 'Mark the record as containing an invalid address field 
 .InvalidAddress = True 
 
 'Specify the comment attached to the record explaining 
 'why the record was excluded from the mail merge 
 .InvalidComments = "The ZIP Code for this record has " _ 
 & "fewer than five digits. It will be removed " _ 
 & "from the mail merge process." 
 
 End If 
 
 'Move the record to the next record in the data source 
 .ActiveRecord = .ActiveRecord + 1 
 
 'End the loop when the counter variable 
 'equals the number of records in the data source 
 Loop Until intCount = .RecordCount 
 End With

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.