Clase CoAuthor (Word VBA)

La clase CoAuthor representa un autor de co único en el documento.

Set

Para usar una variable de clase CoAuthor, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase CoAuthor : CoAuthLock.Owner, CoAuthoring.Me, CoAuthors.Item, Comment.Contact y CoAuthoring.Authors

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto CoAuthor especificado.

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

CoAuthors.Count

Devuelve el número de elementos contenidos en la colección CoAuthors.

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

CoAuthors.Item

Devuelve un objeto coautor individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

CoAuthors.Parent

Devuelve un objeto Object que representa el objeto primario del objeto CoAuthors especificado.

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