Status Property

Microsoft Word Visual Basic

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