Clase CoAuthor - autor de co (Word VBA)

La clase CoAuthor representa un autor de co único en el documento. Para usar una variable de clase CoAuthor, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CoAuthor en una colección.

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

EmailAddress

Devuelve una cadena que especifica la dirección de correo electrónico del autor del co especificado.

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

Devuelve una cadena que especifica un identificador único para el autor especificado.

El identificador único devuelto por la propiedad ID no debe ser supone que tiene una longitud determinada o el formato.

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

Devuelve true si el autor representa al usuario actual.

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

Locks

Devuelve una colección CoAuthLocks que representa los bloqueos del documento que están asociados con el autor del co especificado.

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

Devuelve una cadena que contiene el nombre para mostrar del autor del co especificado.

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