Vbaマクロが正常に動作しない

Question

私は従業員データとWordテンプレートを持つExcelファイルを持っています。私はメールをマージして、従業員の名前を尋ねるマクロを作成し、その名前に基づいてその従業員の従業員の詳細をExcelファイルからWordファイルに取り出します。

マクロは、レコードがExcelシートの上から下に来るとレコードを取得できます。ただし、現在検索されているレコードの上にあるレコードは取得されません。それは本当に問題です。助けてもらえますか？以下は

は私のコードです：ここでは

Sub getdata() 
Dim numRecord As Integer 
Dim myName As String 
myName = InputBox("Enter Name:") 
Set dsMain = ActiveDocument.MailMerge.DataSource 
If dsMain.FindRecord(FindText:=myName, Field:="Name") = True Then 
numRecord = dsMain.ActiveRecord 
End If 
End Sub 

Answer 1

はMailMergeDataSource.FindRecord方法documentationからの直接の引用です：

「アクティブレコードがある場合FindRecordメソッドは、そのためだけ前方検索を行います。データソースの最初のレコードではなく、検索対象のレコードがアクティブレコードの前にある場合、FindRecordメソッドは結果を返しません。データソース全体が検索されるようにするには、ActiveRecordプロパティをwdFirstRecordに設定します。

これ、MailMergeDataSource.ActiveRecordプロパティdocumentationによると、のようなものになります。

With ActiveDocument.MailMerge 
.DataSource.ActiveRecord = wdFirstRecord 
End With