Runtime Error 5 when running vb code in ACCESS2000

[ArsenalAaron]

Hi All

I have a module in MSACCESS2000.
The module opens all .doc's in a folder, finds some criteria (undelined
word) and shows the underlined word in the Immediate window.

On the .ClearFormatting part of the code, it breaks with a runtime error 5
"Invalid procedure call or argument".

However after reviewing my code, everything looks ok.

So I tried the same code out on a different pc using the same version of
Access and it worked fine. No error at all.

I have had Access re-installed on my machine but the error still occurs.

What could possibly be causing this??

Sub ProcessWordDocs()
Dim wd As Object 'Word.Application
Dim doc As Object 'Word.Document
Dim aDoc
Dim strDoc As String
Dim strProduct As String
Dim strDocName
Dim rs As DAO.Recordset
Dim rsProc As DAO.Recordset
Dim j As Long
Dim r As Range


'On Error GoTo ProcessWordDocs_Error

Set wd = CreateObject("Word.Application")
wd.Visible = True
aDoc = Dir("C:\Docs\*.doc")

Do While aDoc <> ""

strDoc = "C:\Docs\" & aDoc
Set doc = wd.Documents.Open _
(FileName:=strDoc, AddToRecentFiles:=False)

For j = 1 To 2
Set r = doc.Sentences(j)
With r.Find
.ClearFormatting
.Font.Underline = 1 'wdUnderlineSingle
.Text = ""
.Wrap = 1 'wdFindContinue

r.Find.Execute

If r.Find.Found Then
strProduct = r
Else
strProduct = "NONE: " & aDoc
End If
End With
Next j


doc.Close

Debug.Print strProduct


aDoc = Dir
Loop

Set doc = Nothing
wd.Quit
Set wd = Nothing
End Sub