Classe CoAuthor - coautor (Word VBA)

A classe CoAuthor representa um único coautor no documento. O objeto CoAuthor é um membro da coleção CoAuthors. A coleção coauthors contém todos os coautores do documento (autores que estão ativamente editando o documento). Para usar uma variável de classe CoAuthor, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens CoAuthor em uma coleção.

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

EmailAddress

Retorna uma cadeia de caracteres que especifica o endereço de email do coautor especificado. Somente leitura.

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

Retorna uma cadeia de caracteres que especifica um identificador exclusivo para o autor especificado. Somente leitura.

O identificador exclusivo retornado pela propriedade ID não deve ser presumido ter um formato ou comprimento específico.

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

Retornará true se este autor representar o usuário atual. Somente leitura.

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

Locks

Retorna uma coleção CoAuthLocks que representa os bloqueios no documento que estão associados ao co Author especificado. Somente leitura.

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

Retorna uma cadeia de caracteres que contém o nome de exibição do co Author especificado. Somente leitura.

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