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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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