You could use the Word-intern functionality for that :
objWordApplication = CreateObject("Word.Application")
objWordApplication.Visible = False
Dim objDoc As Word.Document
objDoc = objWordApplication.Documents.Add(myFileName)
objDoc.Protect(Word.WdProtectionType.wdNoProtection)
objDoc.Activate()
With objWordApplication.Selection.Find
.Text = "Date"
.Replacement.Text = Now.ToString("dd.MM.yyyy")
.Execute(Replace:=Word.WdReplace.wdReplaceAll)
.Text = "Name"
.Replacement.Text = myName
.Execute(Replace:=Word.WdReplace.wdReplaceAll)
.Text = "VorName"
.Replacement.Text = myForeName
.Execute(Replace:=Word.WdReplace.wdReplaceAll)
End With
In this sample each appearence of the keyword will be replaced by a string from my application ...
I hope it helps you ...