Word VBA教程:CanCheckOut方法

如果该属性返回值为 True,则 Microsoft Word 可将指定的文档从服务器签出。Boolean 类型,可读写。

expression.CanCheckOut(FileName)

expression   必需。该表达式返回“应用于”列表中的一个对象。

FileName  String 类型,必需。文档的服务器路径和文件名。

说明

若要利用 Word 中结合的协作功能,文档必须存储在“Microsoft SharePoint 入口服务器”上。

VBA示例

本示例验证没有其他用户编辑文档,并可将其签出。如果可以签出文档,则将文档复制到本地计算机进行编辑。


Sub CheckInOut(docCheckOut As String)
    If Documents.CanCheckOut(docCheckOut) = True Then
        Documents.CheckOut docCheckOut
    Else
        MsgBox "You are unable to check out this document at this time."
    End If
End Sub

若要调用 CheckInOut 子程序,请使用下列子程序并将文件名“http://servername/workspace/report.doc”替换为以上“说明”一节中提到的服务器上实际的文件。


Sub CheckDocInOut()
    Call CheckInOut (docCheckIn:="http://servername/workspace/report.doc")
End Sub

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号