通过

Document.CheckIn 方法 (Visio)

  • 项目

将文档从本地计算机返回到 Microsoft SharePoint Server 计算机。

语法

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

表达 一个代表 Document 对象的变量。

参数

名称 必需/可选 数据类型 说明
SaveChanges 可选 Boolean True（非零值），表示签入之前先保存对文档所做的更改；False (0)，表示签入文档，而不保存所做的更改。 默认值为 True 。
Comments 可选 Variant 要存储在此文档修订中的任何批注（仅在 SaveChanges 等于 True 时才适用）。
MakePublic 可选 Boolean True，表示在签入之后发布文档。 这样做是为了提交文档以便执行审批过程，或者如果没有文档审批例程，则将创建一个可供文件夹的读者使用的公共版本（仅在 SaveChanges 等于 True 时适用）；False 表示使文档仅可供个人查看。 默认值为 False。

返回值

Nothing

注解

若要签入文件，则该文件必须存储在运行 Microsoft SharePoint Server 或 Microsoft SharePoint Foundation 的计算机上的文档库中。

使用 CheckIn 方法签入文档后，应关闭文档。 此行为不同于用户界面中的行为；在用户界面中签入文档后，该文档被关闭并以只读形式重新打开。

示例

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

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

若要调用前面的 CheckDocIn 子例程，请使用下面的子例程并将 servername/workspace/drawing.vdx 替换为位于 Microsoft SharePoint Server 计算机上的实际文件的路径和名称。

Sub DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="https://servername/workspace/drawing.vdx ") 
  
End Sub

支持和反馈

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