CheckInWithVersion Method [Word 2007 Developer Reference]

Switch View :
ScriptFree
Document.CheckInWithVersion Method
Saves a document to a server from a local computer, and sets the local document to read-only so that it cannot be edited locally.

Version Information
 Version Added:  Word 2007

Syntax

expression.CheckInWithVersion(SaveChanges, Comments, MakePublic, VersionType)

expression   A variable that represents a Document object.

Parameters

NameRequired/OptionalData TypeDescription
SaveChangesOptionalBooleanTrue to save the document to the server location. The default is True.
CommentsOptionalVariantComments for the revision of the document being checked in (applies only if SaveChanges is set to True).
MakePublicOptionalBooleanTrue to allow the user to publish the document after it is checked in.
VersionTypeOptionalVariantSpecifies versioning information for the document.

Remarks

Setting the MakePublic parameter to True submits the document for the approval process, which can eventually result in a version of the document being published to users with read-only rights to the document (applies only if SaveChanges is set to True).

To take advantage of the collaboration features built into Microsoft Word, documents must be stored on a Microsoft SharePoint Server.

Example

The following example uses the CanCheckin method to determine whether the document has been stored on a Microsoft SharePoint Server. If the document has been stored on a server, the example calls the CheckInWithVersion method to check in the document along with the specified comments and version number, save changes to the server location, and submit the document for the approval process.

This example is for a document-level customization.

Visual Basic for Applications
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