Código me da error en "6,-1"

Buenas tardes espero que me puedan ayudar!!!!

Lo que quiero hacer es Abrir un archivo word y llevar los datos que tengo en excel para ese archivo es decir , llevar datos desde excel a word pero con macro les paso el código que tengo (si lo corro paso a paso me da error donde pongo 6,-1).

<pre class="prettyprint" style="width: 684px; height: 433px;">
Dim datos(0 To 1, 0 To 2) As String '(columna,fila)
patharch = ThisWorkbook.Path & LibroProtocolo 'ruta de la plantilla
Set objword = CreateObject("Word.Application")
objword.Visible = True
datos(0, 0) = "[reemp_numero]"
datos(1, 0) = Hoja1.Cells(x, 1) 'datos(columna,fila) = Hoja1.cells(fila,columna)
datos(0, 1) = "[reemp_version]"
datos(1, 1) = Hoja1.Cells(x, 6)
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
Else
filas = filas + 1
end If
Wend
Espero su respuesta que es de mucha importancia ya que dependo
de esto para continuar el programa que es para mi trabajo</pre>