Hola:
yo trabajo de la siguiente forma:
Set obj = New Word.Application
obj.Documents.Open FileName:="" & App.Path & "Plantilla.doc"
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador1"
obj.Selection.TypeText Text1.Text
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador2"
obj.Selection.TypeText Text2.Text
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador3"
obj.Selection.TypeText Text3.Text
obj.ActiveDocument.SaveAs FileName:="" & App.Path & "PlantillaX.doc"
obj.PrintOut (False)
obj.Quit SaveChanges:=wdDoNotSaveChanges
Set obj = Nothing
No te olvides de hacer referencia a la libreria de Microsoft Word.
Saludos;