Document.CheckIn 方法 (Word)

该方法将文档从本地计算机返回到服务器，并将本地文档设为只读，使之无法在本地进行编辑。

语法

表达式。CheckIn (SaveChanges、 Comments、 MakePublic)

expression 是必需的。 一个代表 Document 对象的变量。

参数

名称	必需/可选	数据类型	说明
SaveChanges	可选	Boolean	True 将文档保存到服务器位置。 默认值为 True 。
Comments	可选	Variant	正在签入的文档的修订的批注（仅当 SaveChanges 为 True 时才应用）。
MakePublic	可选	Boolean	允许用户执行签入后进行文档发布。 这将提交文档以进行批准，并最终生成发布给用户的一个文档版本，用户对该文档只具有可读权限（仅当 SaveChanges 为 True 时才应用)。 默认值为 False。

备注

要利用 Microsoft Word 中内置的协作功能，文档必须存储在 Microsoft SharePoint Portal Server 上。

示例

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

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 子例程，请使用以下子例程并替换 “https://servername/workspace/report.doc" 替换为位于前面“备注”部分中提到的服务器上的实际文件的文件名。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。