Word VBA教程:Status属性

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

WdRoutingSlipStatus 可以是下列 WdRoutingSlipStatus 常量之一:
wdNotYetRouted
wdRouteComplete
wdRouteInProgress

expression.Status

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号