Document.CanCheckin (Word)

True if Microsoft Word can check in a specified document to a server.

To take advantage of the collaboration features built into Word, documents must be stored on a 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