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

メソッド

• Add
• Delete
• アイテム

プロパティ

• Application
• Count
• Creator
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。