Hi all,

I am working with an application I am making. It tries to send some
data from excel to word. To do so, I make a template on word and say in
excel to find and replace some values.

The thing is that the code to find and replace works perfectly in my
computer, but when I try to do it in another one crashes and gives the
following error:

THE FOLLOWING ERROR HAS OCURRED -2147023113(8007067F) ON EXECUTION
TIME.

ERROR ON THE METHOD 'EXECUTE' OF THE OBJECT 'FIND'

The code I am using is
- Dim DocWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application

Set DocWord = VariableWord.Documents.Add("I:\RIESGOS
OPERACIONALES\Sarbanes-Oxley\Aplicación sox\recomendaciones.dot")
VariableWord.Visible = False

With DocWord.Content.Find
..Execute findtext:="{texto1}", replacewith:=encabezado.Text,
Replace:=wdReplaceAll
..Execute findtext:="{texto2}", replacewith:=cuerpo1.Text,
Replace:=wdReplaceAll
..Execute findtext:="{texto3}", replacewith:=cuerpo2.Text,
Replace:=wdReplaceAll
..Execute findtext:="{texto4}", replacewith:=pie.Text,
Replace:=wdReplaceAll-

I WILL APRECIATE SOME HELP!! THANK YOU VERY MUCH


--
internacio
------------------------------------------------------------------------
internacio's Profile: http://www.excelforum.com/member.php...o&userid=30960
View this thread: http://www.excelforum.com/showthread...hreadid=522742

Try the simplest first. You last line of code has

Replace:=wdReplaceAll-

is the "-" on the end a stray character or actually in your code. If in
your code, that might be the problem.

Otherwise - some guesses.


Try qualifying your objects. Ex:
replacewith:=encabezado.Text,

should be something like

replacewith:=userform1.encabezado.Text,

perhaps.

also, it looks like you are using earling binding, but if your not, perhaps
replace

wdReplaceAll with the value it represents.

--
Regards,
Tom Ogilvy



"internacio" wrote:


Hi all,

I am working with an application I am making. It tries to send some
data from excel to word. To do so, I make a template on word and say in
excel to find and replace some values.

The thing is that the code to find and replace works perfectly in my
computer, but when I try to do it in another one crashes and gives the
following error:

THE FOLLOWING ERROR HAS OCURRED -2147023113(8007067F) ON EXECUTION
TIME.

ERROR ON THE METHOD 'EXECUTE' OF THE OBJECT 'FIND'

The code I am using is
- Dim DocWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application

Set DocWord = VariableWord.Documents.Add("I:\RIESGOS
OPERACIONALES\Sarbanes-Oxley\Aplicación sox\recomendaciones.dot")
VariableWord.Visible = False

With DocWord.Content.Find
.Execute findtext:="{texto1}", replacewith:=encabezado.Text,
Replace:=wdReplaceAll
.Execute findtext:="{texto2}", replacewith:=cuerpo1.Text,
Replace:=wdReplaceAll
.Execute findtext:="{texto3}", replacewith:=cuerpo2.Text,
Replace:=wdReplaceAll
.Execute findtext:="{texto4}", replacewith:=pie.Text,
Replace:=wdReplaceAll-

I WILL APRECIATE SOME HELP!! THANK YOU VERY MUCH


--
internacio
------------------------------------------------------------------------
internacio's Profile: http://www.excelforum.com/member.php...o&userid=30960
View this thread: http://www.excelforum.com/showthread...hreadid=522742

The problem might be a missing reference on the other PC.
Try with late binding like this:

Dim VariableWord As Object
Set VariableWord = CreateObject("Word.Application")

Good chance that will fix the problem.

RBS

"internacio" wrote
in message ...

Hi all,

I am working with an application I am making. It tries to send some
data from excel to word. To do so, I make a template on word and say in
excel to find and replace some values.

The thing is that the code to find and replace works perfectly in my
computer, but when I try to do it in another one crashes and gives the
following error:

THE FOLLOWING ERROR HAS OCURRED -2147023113(8007067F) ON EXECUTION
TIME.

ERROR ON THE METHOD 'EXECUTE' OF THE OBJECT 'FIND'

The code I am using is
- Dim DocWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application

Set DocWord = VariableWord.Documents.Add("I:\RIESGOS
OPERACIONALES\Sarbanes-Oxley\Aplicación sox\recomendaciones.dot")
VariableWord.Visible = False

With DocWord.Content.Find
Execute findtext:="{texto1}", replacewith:=encabezado.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto2}", replacewith:=cuerpo1.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto3}", replacewith:=cuerpo2.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto4}", replacewith:=pie.Text,
Replace:=wdReplaceAll-

I WILL APRECIATE SOME HELP!! THANK YOU VERY MUCH


--
internacio
------------------------------------------------------------------------
internacio's Profile:
http://www.excelforum.com/member.php...o&userid=30960
View this thread: http://www.excelforum.com/showthread...hreadid=522742

Forgot to say that if you use late binding you will have to replace:
wdReplaceAll with the number 2

RBS

"RB Smissaert" wrote in message
...
The problem might be a missing reference on the other PC.
Try with late binding like this:

Dim VariableWord As Object
Set VariableWord = CreateObject("Word.Application")

Good chance that will fix the problem.

RBS

"internacio"
wrote in message
...

Hi all,

I am working with an application I am making. It tries to send some
data from excel to word. To do so, I make a template on word and say in
excel to find and replace some values.

The thing is that the code to find and replace works perfectly in my
computer, but when I try to do it in another one crashes and gives the
following error:

THE FOLLOWING ERROR HAS OCURRED -2147023113(8007067F) ON EXECUTION
TIME.

ERROR ON THE METHOD 'EXECUTE' OF THE OBJECT 'FIND'

The code I am using is
- Dim DocWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application

Set DocWord = VariableWord.Documents.Add("I:\RIESGOS
OPERACIONALES\Sarbanes-Oxley\Aplicación sox\recomendaciones.dot")
VariableWord.Visible = False

With DocWord.Content.Find
Execute findtext:="{texto1}", replacewith:=encabezado.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto2}", replacewith:=cuerpo1.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto3}", replacewith:=cuerpo2.Text,
Replace:=wdReplaceAll
Execute findtext:="{texto4}", replacewith:=pie.Text,
Replace:=wdReplaceAll-

I WILL APRECIATE SOME HELP!! THANK YOU VERY MUCH


--
internacio
------------------------------------------------------------------------
internacio's Profile:
http://www.excelforum.com/member.php...o&userid=30960
View this thread:
http://www.excelforum.com/showthread...hreadid=522742