VBA Error #5132

Larry Landis · September 12th, 2007, 02:07 PM

Hello. I'm trying to get the following VBA/Word code to run (using Word 2000); it's supposed to go into C:\Project\ProjDocs and apply the DelimiterReplace macro to each Word doc in turn. It works great for the first doc, but then chokes on the line:

Set doc = Documents.Open(.FoundFiles(i))

VBA gives an "Run-time error # 5132 Word cannot start converter WPFT632.CNV"

and stops. It never loads any further doc files, and I notice Word has opened a ~$testdoc.doc file (testdoc.doc is the name of the first file in the subdirectory) that looks like gibberish (and is in Normal View, whereas I normally have Word in Page Layout).

Any suggestions will be most appreciated.

Thanks!

Dim i As Integer
Dim doc As Document

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\Project\ProjDocs"
    .SearchSubFolders = False
    .FileType = msoFileTypeWordDocuments
    If Not .Execute() = 0 Then
        For i = 1 To .FoundFiles.Count
            Set doc = Documents.Open(.FoundFiles(i))
            Call DelimiterReplace
            doc.Save
            doc.Close
            Set doc = Nothing
        Next i
    Else
        MsgBox "No files matched " & .FileName
    End If
End With

End Sub

But aft

Larry Landis
Technical Writer

BrianWren · September 25th, 2007, 04:48 PM

Apparently the file is a WordPerfect file, and Word doesn't have a converter for WordPerfect files available to it.

Perhaps you can overcome this by adding an error handler. In the error handler, if the Err.Descritpion contains "WPFT", then abandon the current file, and move on to the next.

Which line raises the error? (I would guess it is "Set doc = Documents.Open(...)"

Try:

Code:

Sub . . .()

    On Error GoTo Er

    Dim i        As Integer
    Dim doc      As Document
    Dim AnyError As Boolean

    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\Project\ProjDocs"
        .SearchSubFolders = False
        .FileType = msoFileTypeWordDocuments

        If Not .Execute() = 0 Then

            For i = 1 To .FoundFiles.Count
                Set doc = Documents.Open(.FoundFiles(i))

                If Not AnyError Then
                    Call DelimiterReplace
                    doc.Save
                    doc.Close
                Else
                    AnyError = False ' Reset for next iteration.
                End If

                Set doc = Nothing
            Next i

        Else

            MsgBox "No files matched " & .FileName

        End If

    End With

Rs: Exit Sub

Er: If InStr(Err.Description, "WPFT") <> 0 Then
        AnyError = True
        Resume Next
    End If

    MsgBox Err.Number & ", """ & Err.Description & """"
    Resume Rs

End Sub