Поделиться через


Объект 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 и обратная связь.