Classe CoAuthoring - co-autoria (Word VBA)

Fornece o ponto de entrada principal ao modelo de objeto co-autoria. Para usar uma variável de classe CoAuthoring, ela primeiro precisa ser instanciada por exemplo

Dim cag as CoAuthoring
Set cag = ActiveDocument.CoAuthoring

Authors

Retorna uma coleção coauthors que representa todos os coautores que estão editando o documento no momento. Somente leitura.

A coleção retornada por essa propriedade é estática. Se essa coleção for armazenada e novos usuários começarem a editar o documento, ou se os usuários atuais não estiverem mais editando o documento, a coleção armazenada não será alterada.

Dim allAuthors As CoAuthors 
Set allAuthors = ActiveDocument.CoAuthoring.Authors

CanMerge

Retorna um Boolean que especifica se o documento pode ser mesclado automaticamente. Somente leitura.

Somente os documentos armazenados em um servidor que ofereça suporte à sincronização de arquivos via protocolo SOAP sobre HTTP podem ser coautores, por exemplo, o SharePoint Server 2010. Além disso, um documento que tem os seguintes recursos não pode ser mesclado automaticamente:

If ActiveDocument.CoAuthoring.CanMerge Then 
    MsgBox "This document can be auto-merged." 
Else: MsgBox "This document cannot be auto-merged." 
End If

CanShare

Retorna um Boolean que especifica se este documento pode ser coautoria. Somente leitura.

O valor dessa propriedade é afetado pelo fato de canmerge ser true, a extensão do arquivo é. docx e o documento é armazenado em um servidor que dá suporte à sincronização de arquivo via SOAP por protocolo http.

If ActiveDocument.CoAuthoring.CanShare Then 
    MsgBox "This document can be co authored." 
Else: MsgBox "This document cannot be co authored." 
End If

Conflicts

Retorna uma coleção Conflicts que representa todos os conflitos em um documento. Somente leitura.

Dim conf As Conflict 
 
For Each conf In ActiveDocument.CoAuthoring.Conflicts 
    MsgBox conf.Type 
Next conf 

Locks

Retorna uma coleção CoAuthLocks que representa os bloqueios no documento. Somente leitura.

MsgBox "There are " & _ 
    ActiveDocument.CoAuthoring.Locks.Count & _ 
    " locks in the active document."

Me

Retorna um objeto coauthor que representa o usuário atual. Somente leitura.

Dim coAuth As CoAuthor 
 
Set coAuth = ActiveDocument.CoAuthoring.Me 
MsgBox "The current user has " & coAuth.Locks.Count & _ 
" locks in the active document."

PendingUpdates

Retorna true se o documento tiver atualizações pendentes que não foram aceitas. Somente leitura.

If ActiveDocument.CoAuthoring.PendingUpdates Then 
MsgBox "There are content updates pending." 
Else: MsgBox "There are no pending updates." 
End If

Updates

Retorna uma coleção CoAuthUpdates que representa as atualizações mais recentes que foram mescladas no documento. Somente leitura.

Dim allUpdates As CoAuthUpdates 
 
Set allUpdates = ActiveDocument.CoAuthoring.Updates