Méthode Document.CheckIn (Word)

  • Article

Renvoie un document depuis un ordinateur local vers un serveur et définit le document local en lecture seule afin qu'il ne puisse être modifié localement.

Syntaxe

expression. CheckIn (SaveChanges, Comments, MakePublic)

expression Obligatoire. Variable qui représente un objet Document.

Parameters

Nom Requis/Facultatif Type de données Description
SaveChanges Facultatif Booléen True: pour enregistrer le document à l'emplacement du serveur. La valeur par défaut est True.
Comments Facultatif Variant Représente les commentaires de révision du document en cours d'archivage (valable uniquement si l'argument EnregistrerModifications a pour valeur True).
MakePublic Facultatif Booléen True permet à l'utilisateur de publier une version du document après son archivage. Celui-ci est alors soumis à processus d'approbation, ce qui peut aboutir à la publication d'une version en lecture seule du document (valable uniquement si l'argument EnregistrerModifications a pour valeur True). La valeur par défaut est False.

Remarques

Vous ne pouvez tirer profit des outils de travail collaboratif intégrés dans Microsoft Word que si vos documents sont stockés sur un serveur Microsoft SharePoint Portal Server.

Exemple

Cet exemple contrôle le serveur pour voir si le document spécifié peut être archivé. Si c’est possible, il enregistre et ferme le document et le ré-archive sur le serveur.

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

Pour appeler la sous-routine CheckInOut, utilisez la sous-routine suivante et remplacez «https://servername/workspace/report.doc" ; par le nom de fichier d’un fichier réel situé sur le serveur mentionné dans la section Remarques précédemment.

Sub CheckDocInOut() 
 Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc") 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.