CanCheckin 方法

如果该方法返回值为 True，则 Microsoft Word 可将指定文档签入服务器。Boolean 类型，可读写。

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

说明

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

示例

本示例检查服务器并确定指定的文档是否可以签入；如果可以，则关闭文档并将其签回服务器。

Sub CheckInOut(docCheckIn As String)
    If Documents(docCheckIn).CanCheckin = True Then
        Documents(docCheckIn).CheckIn
        MsgBox docCheckIn & " has been checked in."
    Else
        MsgBox "This file cannot be checked in " & _
        "at this time.  Please try again later."
    End If
End Sub

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

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