Problem replacing text in Word Document

[jcarneir]

Hi,
I have this working code to replace Text in word documents:
(objDoc is an object word)
objDoc.Select
With Selection.Find
.Text = "Old text"
.Replacement.Text = "New text"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

This code works but I tried it in another Pc getting the error '5' in line: .Text = "Old text"

Both Pc's have W2K, Office 2K and the vba code is running in access 2K. Indeed, both pc's have a copy of the same mdb file to ensure that both the code and the references are the same.

I appreciate any clue about this.
Thx

 

[jcarneir]

I found the solution. It's a bug with Office.
Here is the link:

http://support.microsoft.com/defaul...s/q292/7/44.asp&NoWebContent=1&NoWebContent=1

There are two possible solutions:
1) Use late binding with word objects (This solutions didn't work for my problem)
2) Register again the msword lib with regtlib.exe (you must download the program).