Метод Document.CheckIn (Visio)

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

Синтаксис

выражение. CheckIn (SaveChanges, Comments, MakePublic)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SaveChanges	Необязательный	Логический	True (не ноль), чтобы сохранить изменения документа перед проверкой; Значение False (0), чтобы проверка документ без сохранения изменений. По умолчанию используется значение True.
Comments	Необязательный	Variant	Все комментарии, которые будут сохранены с этой редакцией документа (применимо, только если параметр SaveChanges имеет значение True).
MakePublic	Необязательный	Логический	True, чтобы опубликовать документ после проверки. В этом случае документ отправляется на утверждение или, если для документа отсутствует маршрутизация утверждений, создается общедоступная версия, доступная для читателей этой папки (применяется только в том случае, если параметр SaveChanges имеет значение "Истина"). Значение "ложь" оставляет документ доступным только для частного просмотра. Значение по умолчанию - 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 и обратная связь.