Exportar datos de Excel a Word

Exportar datos de Excel a Word

Muy buenas tardes, me podrían ayudar, necesito acoplar este código para que de una hoja de calculo de excel pueda llevar ciertos campos a una plantilla hecha en word, este código solo es para 3 campos, como lo podría aumentar para 6 campos mas, en un total de 100 registros, en una sola hoja, este código solo se usa para 1 registro, gracias.

Sub regespanol()
Dim Datos(0 To 1, 0 To 2) As String '(columna,fila)
patharch = ThisWorkbook.Path & "\primero.dotx"
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) = Español.Cells(6, 3) '(fila,columna)
Datos(0, 1) = "[reemp_direccion]"
Datos(1, 1) = Español.Cells(7, 3)
Datos(0, 2) = "[reemp_telefono]"
Datos(1, 2) = Español.Cells(8, 3)
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