Insertar texto en word con basic 6.0

[jmguembe]

Lo que pretendo es mediante una macro en excel, colocar un boton en esa excel que copiaria los datos de varias celdas sobre unos marcadores del documento word. Pero a la hora de abrir el word me da error, no se porque (creo que le pido demasiado a las macros de excel), este es mi codigo:

Private Sub CommandButton1_Click()
Dim Documento As New Word.Application
With Documento
'para abrir un documento
.Application.Documents.Open ("\Draft_EU TPM Audit results report_rev.EN01.doc")
.Application.Selection.TypeText "Ejemplo de prueba"
'muestra el documento
.Application.Visible = True
End With
Set Documento = Nothing
End Sub

¿Como deberia hacerlo?

Gracias