返回指定传送名单的传送状态。WdRoutingSlipStatus,只读。
WdRoutingSlipStatus 可以是下列 WdRoutingSlipStatus 常量之一: |
wdNotYetRouted |
wdRouteComplete |
wdRouteInProgress |
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