Classe CoAuthor (Word VBA)

La classe CoAuthor représente un seul auteur Co dans le document.

Set

Pour utiliser une variable de classe CoAuthor, elle doit d'abord être instanciée, par exemple

Dim car as CoAuthor
Set car = ActiveDocument.CoAuthoring.Me

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CoAuthor : CoAuthLock.Owner, CoAuthoring.Me, CoAuthors.Item, Comment.Contact et CoAuthoring.Authors

For Each

Voici un exemple de traitement des éléments CoAuthor dans une collection

Dim carAuthor As CoAuthor
For Each carAuthor In ActiveDocument.Authors
	
Next carAuthor

EmailAddress

Renvoie une valeur de type String qui spécifie l’adresse de messagerie de l’auteur co spécifié.

If ActiveDocument.CoAuthoring.Authors.Count <> 0 Then 
 MsgBox ActiveDocument.CoAuthoring.Authors(1).EmailAddress 
Else
 MsgBox "There are no co authors in this document."
End If 
 

ID

Renvoie une valeur de type String qui spécifie un identificateur unique pour l’auteur spécifié.

L'identificateur unique retourné par la propriété ID ne doit pas être supposé avoir une longueur particulier ou un format.

Dim allAuthors As CoAuthors 
Dim coAuth As CoAuthor 
 
Set allAuthors = ActiveDocument.CoAuthoring.Authors 
 
For Each coAuth In allAuthors 
 MsgBox "The ID for " & _ 
 coAuth.Name & " is " & coAuth.ID & "." 
Next coAuth

IsMe

Renvoie true si cet auteur représente l'utilisateur actuel.

If ActiveDocument.CoAuthoring.Authors(1).IsMe Then 
MsgBox "The current user is the first coauthor." 
End If

Locks

Renvoie une collection CoAuthLocks qui représente les verrous dans le document qui sont associés à l’auteur co spécifié.

Dim lockCount As Integer 
Dim coAuth As CoAuthor 
 
Set coAuth = ActiveDocument.CoAuthoring.Authors(1) 
lockCount = coAuth.Locks.Count 
 
MsgBox "There are " & lockCount & _ 
 " locks in the active document for " & _ 
 coAuth.Name & "."

Name

Renvoie une chaîne qui contient le nom complet de l’auteur co spécifié.

Set coAuth = ActiveDocument.CoAuthoring.Authors(1) 
MsgBox "The name of the user is " & _ 
coAuth.Name & "."

Parent

Renvoie un Object qui représente l'objet parent de l'objet CoAuthor spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.CoAuthoring.Me.Parent

CoAuthors.Count

Renvoie le nombre d'éléments de la collection CoAuthors.

MsgBox "The active document contains " & _ 
 ActiveDocument.CoAuthoring.Authors.Count & " authors."

CoAuthors.Item

Renvoie un objet coauteur spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim car As CoAuthor
Set car = ActiveDocument.CoAuthoring.Authors(Index:=1)

CoAuthors.Parent

Renvoie un Object qui représente l'objet parent de l'objet CoAuthors spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.CoAuthoring.Authors.Parent