Classe CoAuthor - auteur Co (Word VBA)

La classe CoAuthor représente un seul auteur Co dans le document. 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

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 & "."