Base de datos excel a word

Hola amigos del foro.

estoy realizando una macro en excel en donde tengo mi base de datos de N registros y quiero pasarlo a un formato de word ya predeterminado y que vaya poniendo aleatoriamente los datos de excel en word y guarde el word en una ruta, lo q pretendo hacer es que se realice masivamente la informacion de excel a word.

este es un codigo que estoy utilizando pero este lo hace uno por uno y no guarda el word cuando lo crea espero me puedan orientar para poder realizar este trabajo.

Sub exportaraword2()



Dim datos(0 To 1, 0 To 4) As String '(columna,fila)


patharch = ThisWorkbook.Path & "\Plantilla ASF.docx"

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0


datos(0, 0) = "[reemp_nombre]"

datos(1, 0) = Sheet1.Cells(1, 1) '(fila,columna)

datos(0, 1) = "[reemp_direccion]"

datos(1, 1) = Sheet1.Cells(2, 1)

datos(0, 2) = "[reemp_telefono]"

datos(1, 2) = Sheet1.Cells(3, 1)

datos(0, 3) = "[reemp_postal]"

datos(1, 3) = Sheet1.Cells(4, 1)

datos(0, 4) = "[reemp_fecha]"

datos(1, 4) = Sheet1.Cells(5, 1)


For i = 0 To UBound(datos, 2)


    textobuscar = datos(0, i)

    objWord.Selection.Move 6, -1

    objWord.Selection.Find.Execute FindText:=textobuscar


    While objWord.Selection.Find.found = True

        objWord.Selection.Text = datos(1, i) 'texto a reemplazar

        objWord.Selection.Move 6, -1

        objWord.Selection.Find.Execute FindText:=textobuscar

    Wend


Next i


objWord.Activate


End Sub[/CODE]

espero contar con su apoyo gracias!!! anticipadas..