Classe CoAuthoring - création Co (Word VBA)

Fournit le point d’entrée principal au modèle objet de création Co. Pour utiliser une variable de classe CoAuthoring, elle doit d'abord être instanciée, par exemple

Dim cag as CoAuthoring
Set cag = ActiveDocument.CoAuthoring

Authors

Renvoie une collection coauthors qui représente tous les auteurs de co qui modifient actuellement le document.

La collection retournée par cette propriété est statique.

Dim allAuthors As CoAuthors 
Set allAuthors = ActiveDocument.CoAuthoring.Authors

CanMerge

Renvoie une valeur de type Boolean qui indique si le document peut être automatiquement fusionné.

Seuls les documents stockés sur un serveur prenant en charge la synchronisation de fichiers via SOAP sur protocole HTTP peuvent être co-créés, par exemple, SharePoint Server 2010.

If ActiveDocument.CoAuthoring.CanMerge Then 
    MsgBox "This document can be auto-merged." 
Else: MsgBox "This document cannot be auto-merged." 
End If

CanShare

Renvoie une valeur de type Boolean qui indique si ce document peut être co-créé.

La valeur de cette propriété est affectée par si CanMerge est true, l’extension de fichier est. docx et le document est stocké sur un serveur qui prend en charge la synchronisation de fichiers via le protocole SOAP sur http.

If ActiveDocument.CoAuthoring.CanShare Then 
    MsgBox "This document can be co authored." 
Else: MsgBox "This document cannot be co authored." 
End If

Conflicts

Renvoie une collection Conflicts qui représente tous les conflits dans un document.

Dim conf As Conflict 
 
For Each conf In ActiveDocument.CoAuthoring.Conflicts 
    MsgBox conf.Type 
Next conf 

Locks

Renvoie une collection CoAuthLocks qui représente les verrous dans le document.

MsgBox "There are " & _ 
    ActiveDocument.CoAuthoring.Locks.Count & _ 
    " locks in the active document."

Me

Renvoie un objet coauthor qui représente l’utilisateur actuel.

Dim coAuth As CoAuthor 
 
Set coAuth = ActiveDocument.CoAuthoring.Me 
MsgBox "The current user has " & coAuth.Locks.Count & _ 
" locks in the active document."

PendingUpdates

Renvoie la valeur true si le document a des mises à jour en attente qui n’ont pas été acceptées.

If ActiveDocument.CoAuthoring.PendingUpdates Then 
MsgBox "There are content updates pending." 
Else: MsgBox "There are no pending updates." 
End If

Updates

Renvoie une collection CoAuthUpdates qui représente les dernières mises à jour qui ont été fusionnées dans le document.

Dim allUpdates As CoAuthUpdates 
 
Set allUpdates = ActiveDocument.CoAuthoring.Updates