Tengo un formulario en el cual realizo una combinación con Access-Word, todo me funciona bien gracias a la ayuda de prga. Para lo cual utilizo la siguiente instrucción, es mucho mas larga pero la acorto:

Execute findtext:="{Matricula}", replacewith:=UCase(Nz(Forms!FComparecencia!Matricula, "")), Format:=True, Replace:=2 'Matricula del vehiculo

.Execute findtext:="{Tipovehiculo}", replacewith:=UCase(Nz(Forms!FComparecencia!Tipovehiculo, "")), Format:=True, Replace:=2 'Tipo de vehiculo

.Execute findtext:="{MarMo}", replacewith:=UCase(Nz(Forms!FComparecencia!MarMo, "")), Format:=True, Replace:=2 'Marca y modeloPero no se rellenanan los datos.

Etc….

Inserto en un textbox los siguientes datos: * Vehículo tipo {Tipovehiculo}, marca y modelo {MarMo}, matrícula {Matricula}. *Comparecencia en {cbo194}. *Certificado de verificación nº {Texto184}, etc …) a la hora de realizar la combinación me salta el error 5854 (el parámetro de la cadena es demasiado largo).

Para intentar solucionarlo, en el documento Word he insertado un marcador (lugar), para que me inserte todos esos datos y así evitar el error. La instrucción que uso, con la ayuda de prga es esta:

If Forms!FComparecencia!Verificación181 = True Then

mfitxer = CurrentProject.Path & "\Plantillas\Comparecen\Otrolugar.doc"

appword.Application.Selection.GoTo Name:="lugar"

appword.Application.Selection.InsertFile FileName:=mfitxer, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

Else

appword.Application.Selection.GoTo Name:="lugar"

appword.Application.Selection.Text = ""

End If

Pero resulta que se insertan los datos en el documento y no me realiza la combinación, quedando el texto insertado así:

*Vehículo tipo {Tipovehiculo}, marca y modelo {MarMo}, matrícula {Matricula}.

* Acta de sometimiento a prueba de detección de alcohol.

* Resultado de la prueba en papel impreso.

*Comparecencia en {cbo194}.

*Certificado de verificación nº {Texto184} expedido al etilómetro de {cbo194} por el Centro Español de Metrología.

Que tendría que hacer o que debería modificar para que se efectuara la combinación correctamente.

Un Saludo.

Por alusiones: La verdad es que no me acabo de enterar( por separado si) de lo que se hace y lo que se quiere conseguir, pero,

1º.-el find y replace, salvo error, está limitado a 255 caracteres. Los "marcadores" no tienen esa limitación

2º.-El proceso lógico sería insertar "el fichero mfitxer", ir al principio de todo el documento y buscar y reemplazar a lo largo de todo el documento ( sería el "antiguo" mas el insertado).

Espero que ayude a resolver la duda y si no es así, si puedes, explica el problema un poco más.

Ya comentas.

Un saludo a todos

Un saludo a todos

Se puede cerrar el hilo.

Nuevamente Gracias y un Saludo.