¿Qué es lo que falla en esta fórmula Vba?

Estoy utilizando esta fórmula que acompaño abajo del documento para hacer un volcado de datos en un archivo Word, en el archivo de reemplazo he colocado los campos, el archivo se abre pero no aparece el contenido de los campos y si aparece pone 1

La fórmula la empleo con menos campos en otros volcados en Word y va de maravilla pero aquí son 44 campos

No sé que es lo que le puede fallar, aquí os la dejo si alguien hace el favor de analizarla

Muchas gracias por anticipado

Sub exportaraword2()
Dim datos(0 To 1, 0 To 44) As String '(columna,fila)

patharch = ThisWorkbook.Path & "\minuta3.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

datos(0, 0) = "[reemp_cliente]"
datos(1, 0) = Hoja1.Cells(1, 1) '(fila,columna)
datos(0, 1) = "[reemp_contrario]"
datos(1, 1) = Hoja1.Cells(2, 1)
datos(0, 2) = "[reemp_direccion]"
datos(1, 2) = Hoja1.Cells(3, 1)
datos(0, 3) = "[reemp_ciudad]"
datos(1, 3) = Hoja1.Cells(4, 1)
datos(0, 4) = "[reemp_texto]"
datos(1, 4) = Hoja1.Cells(5, 1)
datos(0, 5) = "[reemp_cuantia]"
datos(1, 5) = Hoja1.Cells(6, 1)
datos(0, 6) = "[reemp_autosjuz]"
datos(1, 6) = Hoja1.Cells(7, 1)
datos(0, 7) = "[reemp_costas]"
datos(1, 7) = Hoja1.Cells(8, 1)
datos(0, 8) = "[reemp_referencia]"
datos(1, 8) = Hoja1.Cells(9, 1)
datos(0, 9) = "[reemp_nifc]"
datos(1, 9) = Hoja1.Cells(10, 1)
datos(0, 10) = "[reemp_minuta]"
datos(1, 10) = Hoja1.Cells(11, 1)
datos(0, 11) = "[reemp_imp10]"
datos(1, 11) = Hoja1.Cells(12, 1)
datos(0, 12) = "[reemp_imp11]"
datos(1, 12) = Hoja1.Cells(13, 1)
datos(0, 13) = "[reemp_imp12]"
datos(1, 13) = Hoja1.Cells(14, 1)
datos(0, 14) = "[reemp_imp13]"
datos(1, 14) = Hoja1.Cells(15, 1)
datos(0, 15) = "[reemp_imp14]"
datos(1, 15) = Hoja1.Cells(16, 1)
datos(0, 16) = "[reemp_imp15]"
datos(1, 16) = Hoja1.Cells(17, 1)
datos(0, 17) = "[reemp_descuento]"
datos(1, 17) = Hoja1.Cells(18, 1)
datos(0, 18) = "[reemp_imp17]"
datos(1, 18) = Hoja1.Cells(19, 1)
datos(0, 19) = "[reemp_C25]"
datos(1, 19) = Hoja1.Cells(20, 1)
datos(0, 20) = "[reemp_C24]"
datos(1, 20) = Hoja1.Cells(21, 1)
datos(0, 21) = "[reemp_C25]"
datos(1, 21) = Hoja1.Cells(22, 1)
datos(0, 22) = "[reemp_art18]"
datos(1, 22) = Hoja1.Cells(23, 1)
datos(0, 23) = "[reemp_art19]"
datos(1, 23) = Hoja1.Cells(24, 1)
datos(0, 24) = "[reemp_art17]"
datos(1, 24) = Hoja1.Cells(25, 1)
datos(0, 25) = "[reemp_art12]"
datos(1, 25) = Hoja1.Cells(26, 1)
datos(0, 26) = "[reemp_art13]"
datos(1, 26) = Hoja1.Cells(27, 1)
datos(0, 27) = "[reemp_art14]"
datos(1, 27) = Hoja1.Cells(28, 1)
datos(0, 28) = "[reemp_art15]"
datos(1, 28) = Hoja1.Cells(29, 1)
datos(0, 29) = "[reemp_art16]"
datos(1, 29) = Hoja1.Cells(30, 1)
datos(0, 30) = "[reemp_sumader]"
datos(1, 30) = Hoja1.Cells(31, 1)
datos(0, 31) = "[reemp_tdescuento]"
datos(1, 31) = Hoja1.Cells(32, 1)
datos(0, 32) = "[reemp_porcentajed]"
datos(1, 32) = Hoja1.Cells(33, 1)
datos(0, 33) = "[reemp_impddto]"
datos(1, 33) = Hoja1.Cells(34, 1)
datos(0, 34) = "[reemp_E24]"
datos(1, 34) = Hoja1.Cells(35, 1)
datos(0, 35) = "[reemp_E25]"
datos(1, 35) = Hoja1.Cells(36, 1)
datos(0, 36) = "[reemp_E26]"
datos(1, 36) = Hoja1.Cells(37, 1)
datos(0, 37) = "[reemp_sumasup]"
datos(1, 37) = Hoja1.Cells(38, 1)
datos(0, 38) = "[reemp_provision]"
datos(1, 38) = Hoja1.Cells(39, 1)
datos(0, 39) = "[reemp_subtotal]"
datos(1, 39) = Hoja1.Cells(40, 1)
datos(0, 40) = "[reemp_iva]"
datos(1, 40) = Hoja1.Cells(41, 1)
datos(0, 41) = "[reemp_irpf]"
datos(1, 41) = Hoja1.Cells(42, 1)
datos(0, 42) = "[reemp_totalimp]"
datos(1, 42) = Hoja1.Cells(43, 1)
datos(0, 43) = "[reemp_totaldebe]"
datos(1, 44) = Hoja1.Cells(44, 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