通过

MailMergeFilterCriterion 对象 (Publisher)

  • 项目

代表要应用于连接的邮件合并或目录合并数据源的筛选器。 MailMergeFilterCriterion 对象是 MailMergeFilters 对象的成员。

备注

每个筛选器为查询字符串中的一行。 使用 Column、 Comparison、 CompareTo 和 Conjunction 属性可返回或设置数据源查询条件。

使用 添加 若要向查询中添加新的筛选器条件的 MailMergeFilters 对象的方法。

示例

以下示例将现有筛选器更改为从邮件合并中删除所有没有“区域”字段等于 WA 的记录。 此示例假定某个数据源已连接到当前出版物。

Sub SetQueryCriterion() 
 Dim intItem As Integer 
 With ActiveDocument.MailMerge.DataSource.Filters 
 For intItem = 1 To .Count 
 With .Item(intItem) 
 If .Column = "Region" Then 
 .Comparison = msoFilterComparisonNotEqual 
 .CompareTo = "WA" 
 If .Conjunction = "Or" Then .Conjunction = "And" 
 End If 
 End With 
 Next 
 End With 
End Sub

本示例将一个新行添加到查询字符串，然后将组合的筛选器应用于数据源。 此示例假定某个数据源已连接到当前出版物。

Sub FilterDataSource() 
 With ActiveDocument.MailMerge.DataSource 
 .Filters.Add Column:="Region", _ 
 Comparison:=msoFilterComparisonIsBlank, _ 
 Conjunction:=msoFilterConjunctionAnd 
 .ApplyFilter 
 End With 
End Sub

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。