Word VBA教程:CheckIn方法

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

expression.CheckIn(SaveChanges, MakePublic, Comments)

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

SaveChanges  Boolean 类型,可选。如果该方法返回值为 True,则将文档保存到服务器位置。默认值为 True。

MakePublic  Boolean 类型,可选。如果该方法返回值为 True,则签入后允许用户执行文档发布。此操作提交文档用于校验过程,该过程事实上导致将文档的某个版本以只读权限发布给用户(仅应用于 SaveChanges 等于 True 时)。

Comments  Variant 类型,可选。正在签入的文档的修订的批注(仅应用于 SaveChanges 等于 True 时)。

说明

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

VBA示例

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


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

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号