全部显示

Status 属性

       

返回指定传送名单的传送状态。WdRoutingSlipStatus,只读。

expression.Status

expression   必需。该表达式返回一个 RoutingSlip 对象。

示例

如果活动文档有一个附加的传送名单,则本示例显示一条消息以表明传送状态。

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

如果 Sales.doc 的传送已经结束,则本示例重新设置该文档的传送名单。

With Documents("Sales.doc").RoutingSlip
    If .Status = wdRouteComplete Then
        .Reset
    Else
        MsgBox "Cannot reset routing; not yet complete."
    End If
End With