Document.CanCheckin (Word)

True se o Microsoft Word pode verificar em um documento especificado para um servidor. Boolean de leitura/gravação.

Para usufruir vantagem dos recursos de colaboração internos do Word, os documentos precisam ser armazenados em um 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