差し込み印刷のメイン文書に NEXTIF フィールドを追加します。 MailMergeField オブジェクトを返します。
構文
expression. AddNextIf( _Range_ , _MergeField_ , _Comparison_ , _CompareTo_ )
expression 必須です。 'MailMergeFields' コレクションを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Range | 必須 | Range object | NEXTIF フィールドの位置を指定します。 |
| MergeField | 必須 | String | 差し込みフィールド名を指定します。 |
| Comparison | 必須 | WdMailMergeComparison | WdMailMergeComparison クラスの定数のいずれかを使用して、比較動作を指定します。 |
| CompareTo | 必須 | String | MergeField の内容と比較する文字列を指定します。 |
戻り値
MailMergeField
注釈
NEXTIF フィールドは、2 つの式を比較し、比較の結果が True の場合は、次のレコードを作業中の差し込み文書に差し込みます。
例
次の使用例は、Main.doc の最初の MERGEFIELD フィールドの前に NEXTIF フィールドを追加します。次の郵便番号が 98004 と等しい場合、次のレコードを現在の差し込み文書に差し込みます。
Documents("Main.doc").MailMerge.Fields(1).Select
Selection.Collapse Direction:=wdCollapseStart
Documents("Main.doc").MailMerge.Fields.AddNextIf _
Range:=Selection.Range, MergeField:="PostalCode", _
Comparison:=wdMergeIfEqual, CompareTo:="98004"
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。