Метод Document.CheckIn (Word)

Возвращает документ с локального компьютера на сервер и устанавливает для локального документа режим только для чтения, чтобы его нельзя было редактировать локально.

Синтаксис

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

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

Параметры

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