Word VBA教程:FindRecord方法

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

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

expression.FindRecord(FindText, Field)

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

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

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

VBA示例

本示例为第一条数据记录显示合并文档,在该记录的 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号