如果为该属性值为 True,则在邮件合并中包含记录。Boolean 类型,可读写。
expression.Included
expression 必需。该表达式返回一个 MailMergeDataSource 对象。
使用 SetAllIncludedFlags 方法在邮件合并数据源中包括或排除所有记录。
本示例循环查看邮件合并数据源中的记录,检查邮政编码字段(本例中字段包含六位数字)是否包含少于五位数字。如果某记录的邮政编码字段包含少于五位数字,则从邮件合并中排除该记录,并标记该邮件地址为无效。
Sub CheckRecords()
Dim intCount As Integer
On Error Resume Next
With ActiveDocument.MailMerge.DataSource
'Set the active record equal to the first included record
' in the data source
.ActiveRecord = wdFirstRecord
Do
intCount = intCount + 1
'Set the condition that field six must be greater than
'or equal to five
If Len(.DataFields(6).Value) < 5 Then
'Exclude the record if field six is less than five
.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 " & _
"is less 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 = wdNextRecord
'End the loop when the counter variable equals the
'number of records in the data source
Loop Until intCount = .RecordCount
End With
End Sub