Publisher (的 MailMergeFilterCriterion 物件)
代表要套用至附加合併列印或型錄合併列印資料來源的篩選。 MailMergeFilterCriterion物件是MailMergeFilters物件的成員。
註解
每個篩選是查詢字串中的資料行。 使用 欄 、 Comparison 、 CompareTo 、 及 搭配使用 傳回或設定資料來源查詢準則的屬性。
使用 [ 新增 若要將新的篩選準則新增至查詢的 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 支援與意見反應。