Generar Documento Word

[gluglusito]

Hola,

tengo que hacer una aplicación que genere documentos word a partir de una plantilla y unos datos que recoje de una BD.

Lo que intenté fue lo siguiente

Private Sub Command1_Click()
Dim Documento As New Word.Application
With Documento
.Application.Documents.Open ("C:\prueba.doc")
.Documents.Item(1).Bookmarks.Item("campo1").Range. Text = Text1.Text
.Application.Visible = True


End With
Set Documento = Nothing
End Sub

Para esto creo un documento en esa ruta, y le inserto un campo, de tipo mergefields de nombre campo1

pero sale que me sale el error, dice que el campo no existe.

Quisiera saber cual es la mejor manera de trabajar con word, ya que es el primer proyecto que tengo de este tipo.

De antemano muchas gracias por la ayuda y el tiempo.