miWord = CreateObject("Word.Application")
'miWord.Documents.Open("C:\test\layou.docx") 'Para de archivo a abrir
miWord.Visible = True
'Rellenamos los marcadores del Word con la información
'Aqui Marcador1...Marcador5 son los nombres de los marcadores en el docuemnto de Word
With miWord.ActiveDocument.Bookmarks
.Item("nombre").Range.Text = Variable1
.Item("CALLE_CON_NUMERO").Range.Text = Variable2
.Item("COLONIA").Range.Text = Variable3
End With