共用方式為

Word) (Application.MailMergeBeforeRecordMerge 事件

  • 發行項

會在合併中執行個別記錄的合併時發生。

語法

運算式。MailMergeBeforeRecordMerge (Doc， Cancel)

expression 代表 Application 物件的變數。

如需搭配 Application 物件使用 事件的相關資訊，請 參閱搭配 Application 物件使用事件。

參數

名稱 必要/選用 資料類型 描述
Doc 必要 Document 合併列印主文件。
Cancel 必要 Boolean True 是表示 只的目前記錄的合併列印程序，開始前才停止。

範例

本範例會確認郵遞區號的長度，在此範例中為欄位編號 6，小於五位數，如果是，則只取消該記錄的合併。 這個範例會假設您已經在一般宣告中宣告了名稱為 MailMergeApp 的應用程式變數，並且已將該變數設定為與 Microsoft Word Application 物件相同。

Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _ 
 Doc As Document, Cancel As Boolean) 
 
 Dim intZipLength As Integer 
 
 intZipLength = Len(ActiveDocument.MailMerge _ 
 .DataSource.DataFields(6).Value) 
 
 'Cancel merge of this record only if 
 'the ZIP Code is fewer than five digits 
 If intZipLength < 5 Then 
 Cancel = True 
 End If 
 
End Sub

另請參閱

Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。