Объект MailMergeFilters (Publisher)
Представляет все фильтры, применяемые к источнику данных, присоединенному к публикации слияния или каталога. Объект MailMergeFilters состоит из объектов MailMergeFilterCriterion .
Замечания
Используйте метод Add , чтобы добавить в запрос новое условие фильтра.
Используйте метод Item для доступа к отдельному критерию фильтра.
Пример
В этом примере добавляется новая строка в строку запроса, а затем применяется объединенный фильтр к источнику данных. В этом примере предполагается, что источник данных подключен к активной публикации.
Sub FilterDataSource()
With ActiveDocument.MailMerge.DataSource
.Filters.Add Column:="Region", _
Comparison:=msoFilterComparisonIsBlank, _
Conjunction:=msoFilterConjunctionAnd
.ApplyFilter
End With
End Sub
В этом примере выполняется циклическое выполнение всех критериев фильтра, и если он находит одно из них со значением Region, изменит его, чтобы удалить из слияния все записи, которые не равны 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
Методы
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.