Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
True se o Microsoft Word pode verificar em um documento especificado para um servidor. Boolean de leitura/gravação.
Sintaxe
expression. CanCheckin
expression é obrigatório. Uma variável que representa um objeto Document.
Valor de retorno
Booliano
Comentários
Para usufruir vantagem dos recursos de colaboração internos do Word, os documentos precisam ser armazenados em um Microsoft SharePoint Portal Server.
Exemplo
Este exemplo verifica o servidor para ver se é possível dar entrada do documento especificado e, se possível, fecha o documento e verifica-o novamente no servidor.
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
Para chamar a subriretina CheckInOut acima, utilize a seguinte subroutina e substitua "https://servername/workspace/report.doc" nome de ficheiro com um ficheiro real localizado num servidor mencionado na secção Observações acima.
Sub CheckDocInOut()
Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc")
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.