Status Property 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