Word 2000 - Problem routing a DOC with Macro

[Jeremy Darrington]

Thanks to anyone that answers this post in advance.

I am receiving a series of application errors. I have
checked the Site for these errors and cannot find them
anywhere. I have created a Template for routing
information to other users in sequential order for
signatures and approvals.

ERROR:

'The instruction at "0x304f004f" referenced memory
at "0x00000008". The memory could not be "read".

Click on OK to terminate the program
Click on CANCEL to debug the program
___________

Follow Up Error:

'The instruction at "0x60005cdb" referenced memory
at "0x000000b0". The memory could not be "read".

Click on OK to terminate the program
Click on CANCEL to debuf the program

_____________

I have traced the error by debugging my VB Code, but don't
know why it does this unless I have an error in the code
itself.

Here is the code:

Sub RouteDoc()

ThisDocument.HasRoutingSlip = False
ThisDocument.HasRoutingSlip = True
With ThisDocument.RoutingSlip
.Subject = "File Restore Request... (CED)"
Select Case Me.MANAGER_FIELD.Value
Case "Gordy"
.AddRecipient Recipient:="Goodall, Gordon"
Case "Roxie"
.AddRecipient Recipient:="Winiecke, Roxie"
Case "Art"
.AddRecipient Recipient:="Talbot, Art"
Case "Tyler"
.AddRecipient Recipient:="Perkins, Tyler"
Case "Bob"
.AddRecipient Recipient:="Graul, Robert"
Case "Travis"
.AddRecipient Recipient:="Johnson, Travis"
Case "Mike"
.AddRecipient Recipient:="Holub, Mike"
End Select
.AddRecipient Recipient:="Schroeder, Todd"
.AddRecipient Recipient:="Lui, Albert"

If Route_Button.Caption = "Route to a Technician"
Then
.AddRecipient Recipient:=InputBox("Please enter
the UserID of the Technician you will be assigning to this
Request.", "Enter USER ID of Tech")
End If
.Protect = 2
.Delivery = wdOneAfterAnother
.ReturnWhenDone = True
.TrackStatus = True
.Message = InputBox("Please enter a description
for this Route", "Routing Message")
End With

End Sub

Any help would be appreciated. Thanks.

Jeremy Darrington
Smead Mfg. Co.

 

[Beth Melton]

Hi Jeremy,

If you don't get the answer you are looking for here then you might
try posting in one of the Word VBA newsgroups. That's where the VBA
gurus tend to hang out.

-
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/