Я закладки ставил с такими же именами, как поля рекордсета, а потом по ним бегал. Лучче имя закладки делать на один символ длиннее а потом его резать, тогда одно значение можно в несколько мест засунуть.

Private Function fnWordReport(pTemplateName As String, pRst As ADODB.Recordset, _
pCopies As Integer) 'Åñëè pCopies=0, òî preview
On Error GoTo lError
Dim lDoc As Word.Document
Dim lBM As Word.Bookmark
Dim lBM_Name As String
Dim lField_Name As String
If pRst.EOF And pRst.BOF Then Exit Function
pRst.MoveFirst
While Not pRst.EOF


Set lDoc = WordApp.Documents.Add(fnRptPath & pTemplateName & ".dot")
For Each lBM In lDoc.Bookmarks
lBM_Name = lBM.Name
lField_Name = Left(lBM_Name, Len(lBM_Name) - 1) 'Îòðåæåì 1 ñèìâîë ñïðàâà
lBM.Range = Nz(pRst(lField_Name), "")
Next lBM
If pCopies <> 0 Then
lDoc.PrintOut Copies:=pCopies
lDoc.Close wdDoNotSaveChanges
Else
WordApp.Visible = True
End If
pRst.MoveNext
Wend
LExit:
Exit Function
lError:
fnShowError
Resume LExit
End Function