WdRoutingSlipStatus can be one of these WdRoutingSlipStatus constants. |
wdNotYetRouted |
wdRouteComplete |
wdRouteInProgress |
expression.Status
expression Required. An expression that returns a RoutingSlip object.
Example
If the active document has a routing slip attached to it, this example displays a message indicating the routing status.
If ActiveDocument.HasRoutingSlip = True Then
Select Case ActiveDocument.RoutingSlip.Status
Case wdNotYetRouted
MsgBox "The document hasn't been routed yet."
Case wdRouteInProgress
MsgBox "Routing is in progress."
Case wdRouteComplete
MsgBox "Routing is complete."
End Select
End If
This example resets the routing slip for Sales.doc if the routing is complete.
With Documents("Sales.doc").RoutingSlip
If .Status = wdRouteComplete Then
.Reset
Else
MsgBox "Cannot reset routing; not yet complete."
End If
End With