Используй bookmark'и

Private Function SetBookmark(BookmarkName As String, Value As Variant) As Boolean

If Not pr_WordDocument.Bookmarks.Exists(BookmarkName) Then
SetBookmark = False
'MsgBox "?? ??????? ???????? " & BookmarkName, vbOKOnly + vbInformation, "??????"
Exit Function
End If

pr_WordDocument.Bookmarks(BookmarkName).Select
If Not IsNull(Value) Then
pr_WordApp.Selection.Text = CStr(Value)
If pr_WordDocument.Bookmarks.Exists(BookmarkName) Then
pr_WordDocument.Bookmarks(BookmarkName).Delete
End If
pr_WordDocument.Bookmarks.Add BookmarkName
Else
pr_WordApp.Selection.Text = ""
If pr_WordDocument.Bookmarks.Exists(BookmarkName) Then
pr_WordDocument.Bookmarks(BookmarkName).Delete
End If
pr_WordDocument.Bookmarks.Add BookmarkName
End If
'pr_WordDocument.Bookmarks.Add (BookmarkName & "_end")
SetBookmark = True
End Function

У меня на это дело скрипт в Ворде на расстановку bookmark'ов в шаблоне написан.
VB вызывает Ворд и в xml файле передает описание закладок и путь к файлу шаблона, после расстановки закладок тот записывает в xml результаты, после VB его анализирует и вперед. Учень удобно для вывода информации из базы в произвольный документ