Share via

FindRecord Method [Publisher 2003 VBA Language Reference]

  • Article

Searches the contents of the specified mail merge data source for text in a particular field. Returns a Boolean indicating whether the search text is found; True if the search text is found.

expression.FindRecord(FindText, Field)

expression Required. An expression that returns one of the objects in the Applies To list.

FindText   Required String. The text to look for.

Field   Optional String. The name of the field to be searched.

Example

This example displays a merge publication for the first data record in which the FirstName field contains Joe. If the data record is found, the record number is stored in a variable.

Sub FindDataSourceRecord()
    Dim dsMain As MailMergeDataSource
    Dim intRecord As Integer

    'Makes the data in the data source records instead of the field codes
    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False

    Set dsMain = ActiveDocument.MailMerge.DataSource

    If dsMain.FindRecord(FindText:="Joe", _
            Field:="FirstName") = True Then
        intRecord = dsMain.ActiveRecord
    End If

End Sub

Applies to | MailMergeDataSource Object