Метод Document.CheckIn (Word)

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

Синтаксис

expression. CheckIn (SaveChanges, Comments, MakePublic)

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

Параметры

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

Замечания

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