проще всего управлять Word через Microsoft Word x.x Object Library

Dim wda As Word.Application
Dim wwd As Word.Document
'Заполняю шаблон
Set wwd = GetObject("C:\Мойфайл.doc") 'здесь путь к файлу
'но вот какая идея
' хранить шаблон внутри БД (например в image)
'выплевывать на диск а затем заполнять.
'таким образом файл будет расположен там куда выплюнул
'следовательно никаких проблем с поиском пути
Set wda = wwd.Parent

wda.Visible = True
wwd.Bookmarks("Номер").Select 'способ 1
wda.Activate

With wda.Selection
.Goto Name:="Номер" 'способ 2
.TypeText Text:=Nz(Forms!Dog_Vvod!txtName_B, " ")
End With

Set wwd = Nothing
Set wda = Nothing

но если хочется напрямую выяснить путь к ворду то придется пользоваться апишными функциями работы с реестром