FindRecord 方法

在特定域的文字中搜索指定的邮件合并数据源的内容。如果找到了搜索文字，则本方法返回 True。 Boolean。

注意   相应于“邮件合并”工具栏中的“查找记录”按钮。

expression   必需。该表达式返回一个 MailMergeDataSource 对象。

FindText   String 类型，必需。需要查找的文字。

Field   必需。Variant 类型。需要搜索的域名。

示例

本示例为第一条数据记录显示合并文档，在该记录的 FirstName 域中包含“Joe”。如果找到数据记录，则将记录的数量保存在 numRecord 变量中。

Dim dsMain As MailMergeDataSource
Dim numRecord As Integer

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set dsMain = ActiveDocument.MailMerge.DataSource
If dsMain.FindRecord(FindText:="Joe", _
        Field:="FirstName") = True Then
    numRecord = dsMain.ActiveRecord
End If