Метод Document.CheckIn (Visio)

Статья
04/07/2023

Возвращает документ с локального компьютера на компьютер Microsoft SharePoint Server.

Синтаксис

expression. CheckIn (SaveChanges, Comments, MakePublic)

Выражение Переменная, представляющая объект Document .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Savechanges	Необязательный	Логический	Значение True (не нулевое значение), чтобы сохранить изменения документа до регистрации; Значение false (0) для проверки документа без сохранения изменений. По умолчанию используется значение True.
Комментарии	Необязательный	Variant	Все примечания, которые будут храниться в этой редакции документа (применяется только в том случае, если значение SaveChanges равно True).
MakePublic	Необязательный	Логический	Значение true для публикации документа после возврата. При этом документ отправляется для утверждения или, если маршрутизация утверждения для документа отсутствует, создается общедоступная версия, доступная для читателей папки (применяется только в том случае, если значение SaveChanges равно True); Значение False оставляет документ доступным только для закрытого просмотра. Значение по умолчанию - false.

Возвращаемое значение

Отсутствует

Примечания

Чтобы вернуть файл, он должен храниться в библиотеке документов на компьютере под управлением 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 и обратная связь.

Поделиться через