Document.CanCheckin Method (Word)
True if Microsoft Word can check in a specified document to a server. Read/write Boolean .
expression Required. A variable that represents a 'Document' object.
To take advantage of the collaboration features built into Word, documents must be stored on a Microsoft SharePoint Portal Server.
This example checks the server to see if the specified document can be checked in and, if it can be, closes the document and checks it back into the 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
To call the CheckInOut subroutine above, use the following subroutine and replace the "https://servername/workspace/report.doc" file name with an actual file located on a server mentioned in the Remarks section above.
Sub CheckDocInOut() Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc") End Sub