Объект MailMergeFilterCriterion (Издатель)
Представляет фильтр, применяемый к присоединенному источнику данных слияния или каталога. Объект MailMergeFilterCriterion является членом объекта MailMergeFilters .
Замечания
Каждый фильтр представляет собой строку в строке запроса. Используйте свойства Column, Compare, CompareTo и Conjunction, чтобы вернуть или задать условие запроса к источнику данных.
Используйте метод Add объекта 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 и обратная связь.