Application.Filesearch generates Error 430 'Class does not support

J

JDB

Hello,

We are running Office 2003. A third-party application calls a Word macro to
do a mail merge, and the following error occurs:

Error 430 'Class does not support automation or does not support expected
interface'

Here is a portion of the code, the VBA debugger identifies the With
Application.Filesearch line to be the problem:

If lastMergeDocumentIx = 0 Or mergeFileNameList(currentMergeDocumentIx) <>
mergeFileName Then
With Application.FileSearch
.LookIn = Options.DefaultFilePath(wdDocumentsPath)
.FileName = mergeOnlyName
If .Execute > 0 Then
Documents.Open mergeFileName
lastMergeDocumentIx = lastMergeDocumentIx + 1
' Don't continue if we've exceeded the bounds of the table.
If lastMergeDocumentIx <= TableMax Then
currentMergeDocumentIx = lastMergeDocumentIx
mergeFileNameList(currentMergeDocumentIx) = mergeFileName
Set mergeDocumentList(currentMergeDocumentIx) =
ActiveDocument
End If
End If
End With
End If

This works fine on some computers, but others get the 430 error. I've tried
all the following resolutions, but none have worked:

1. Reinstalled MDAC
2. Upgraded MDAC
3. Installed the MDAC version that is installed on the working computers
4. Installed JET 4 SP8
5. Reregistered the Word 2003 type library

Any help would be greatly appreciated!
Thanks,
Jeff
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top