Método Document.CheckInWithVersion (Word)
Salva um documento de um computador local em um servidor e define o documento local como somente leitura para que ele não possa ser editado localmente.
Sintaxe
expression. CheckInWithVersion( _SaveChanges_ , _Comments_ , _MakePublic_ , _VersionType_ )
Expressão Uma variável que representa um objeto Document .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SaveChanges | Opcional | Boolean | True para salvar o documento no local do servidor. O padrão é True. |
| Comments | Opcional | Variantes | Comentários da revisão do documento cujo check-in está sendo feito (válido somente se SaveChanges for definido como True). |
| MakePublic | Opcional | Boolean | True para permitir que o usuário publique o documento após o seu check-in. |
| VersionType | Opcional | Variantes | Especifica as informações de controle de versão do documento. |
Comentários
A definição do parâmetro MakePublic como True envia o documento para o processo de aprovação, que resultará em uma versão do documento publicada para usuários com direitos somente leitura no documento (válido somente seSaveChanges for definido como True).
Para aproveitar os recursos de colaboração internos do Microsoft Word, os documentos precisam ser armazenados em um Microsoft SharePoint Server.
Exemplo
O exemplo a seguir usa o método CanCheckin para determinar se o documento foi armazenado em um Microsoft SharePoint Server. Se o documento tiver sido armazenado em um servidor, o exemplo chamará o método CheckInWithVersion para fazer o check-in do documento junto com os comentários e o número de versão especificados, salvar as alterações no local do servidor e enviar o documento para o processo de aprovação.
Este é um exemplo de personalização no nível do documento.
Private Sub DocumentCheckIn()
If ActiveDocument.CanCheckin Then
ActiveDocument.CheckInWithVersion _
True, _
"My updates.", _
True, _
WdCheckInVersionType.wdCheckInMinorVersion
Else
MessageBox.Show ("This document cannot be checked in")
End If
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.