Метод 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 и обратная связь.