Way of trap the error code when using VBA macro

[jstockton]

Please Help,

I have run across a problem where I am forced to use a VBA macro in bringing up a word document. I can view the word document (which works great ), but if I “CANCEL” to view the word document, I received a Run Time Error 5408 . Below is what I have. Is there a way to trap the error code?

Sub PRD77()

Dim appWord As New Word.Application
Dim docWord As Word.Document

Set docWord = appWord.Documents.Open("S:\VB2 Product Development\PRDs\PRD#77-

Instant VB2 User Registration\PRD#77-InstantVB2UserRegistration.doc")

appWord.Visible = True


End Sub

Please help...

 

[Legacy 98055]

I ran your code and do not have the option to cancel. Please explain in what context you are given an option to cancel opening or viewing the work doc...

 

[jstockton]

Thank you so much for replying,

Have the word document setup for with a Password (Read Only). When you click on your macro, a pop up window will appear asking for a Password, Click on Cancel or the OK button. A Microsoft Visual Basic error debug pop up window will appear giving an Error Code of “Run-Time error 5408”.


Please help.

 

[dk]

Hi,

You could use a little bit of deferred error handling. Below is an example I just knocked up:

Sub PRD77()

    Dim appWord As New Word.Application
    Dim docWord As Word.Document

    On Error Resume Next
    Set docWord = appWord.Documents.Open("C:\temp\mydoc.doc")
    On Error GoTo 0

    If docWord Is Nothing Then
        'Document not opened.  Error code here
        appWord.Quit
        Set appWord = Nothing
        MsgBox "User cancelled"
    Else
        appWord.Visible = True
    End If

End Sub

Hope this helps,
Daniel