Clase CoAuthoring - co-autoría (Word VBA)

Proporciona el punto de entrada principal al modelo de objetos de co-autoría. Para usar una variable de clase CoAuthoring, primero debe ser instanciado, por ejemplo

Dim cag as CoAuthoring
Set cag = ActiveDocument.CoAuthoring

Authors

Devuelve una colección coauthors que representa todos los autores de co que están editando actualmente el documento.

La colección que devuelve esta propiedad es estática.

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

CanMerge

Devuelve un valor Boolean que especifica si el documento puede combinarse automáticamente.

Solo los documentos almacenados en un servidor que admite la sincronización de archivos mediante SOAP a través del protocolo HTTP pueden ser de Co, por ejemplo, SharePoint Server 2010.

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

CanShare

Devuelve un valor Boolean que especifica si este documento puede ser coautor o Co.

El valor de esta propiedad se ve afectado por si CanMerge es true, la extensión de archivo es. docx y el documento se almacena en un servidor que admite la sincronización de archivos mediante SOAP a través del 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

Devuelve una colección Conflicts que representa todos los conflictos de un documento.

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

Locks

Devuelve una colección CoAuthLocks que representa los bloqueos en el documento.

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

Me

Devuelve un objeto coauthor que representa al usuario actual.

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

PendingUpdates

Devuelve true si el documento tiene actualizaciones pendientes que no se han aceptado.

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

Updates

Devuelve una colección CoAuthUpdates que representa las actualizaciones más recientes que se han combinado en el documento.

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