De excel a Word - Plantilla

[Roxane Mateos]

Buenas tardes, he generado una plantilla en word para que al seleccionar una fila en excel los datos contenidos en ella se reemplacen en la plantilla, logro hacer que la primera fila llene completo y sin errores mi plantilla, pero al momento de exporar la segunda fila me aparece el error de "El parametro de la cadena es demasiado largo"

 

Sub GenerarWordFila()

ruta = ThisWorkbook.Path & "\Marksheet Template2.docx"

Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Documents.Add Template:=ruta, NewTemplate:=False, DocumentType:=0

For i = 2 To 42
busqueda = Hoja2.Range("D" & i).Text
remplazar = Hoja2.Range("C" & i).Text

With objWord.Selection.Find
.Text = busqueda
.Replacement.Text = remplazar   "Aquí me marca el error"
.Execute Replace:=2
    
End With

Next i

End Sub