Klasse CoAuthoring - Co-Erstellungs (Word VBA)

Die Klasse CoAuthoring stellt den primären Einstiegspfad für das Co-Erstellungs Objektmodell bereit. Um eine CoAuthoring -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cag as CoAuthoring
Set cag = ActiveDocument.CoAuthoring

Authors

Gibt eine mitverfassers-Auflistung zurück, die alle Co-Autoren darstellt, die das Dokument derzeit bearbeiten.

Die von dieser Eigenschaft zurückgegebene Auflistung ist statisch.

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

CanMerge

Gibt einen Wert vom Typ Boolean , der angibt, ob das Dokument automatisch zusammengeführt werden kann.

Nur Dokumente, die auf einem Server gespeichert sind, der die Dateisynchronisierung über das SOAP über HTTP-Protokoll unterstützt, können gemeinsam verfasst werden, beispielsweise 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

Gibt einen Wert vom Typ Boolean zurück, der angibt, ob dieses Dokument gemeinsam erstellt werden kann.

Der Wert dieser Eigenschaft hängt davon ab, ob CanMerge auf truefestgelegt ist, die Dateierweiterung ist. docx, und das Dokument wird auf einem Server gespeichert, der die Dateisynchronisierung über SOAP über HTTP-Protokoll unterstützt.

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

Conflicts

Gibt eine Conflicts -Auflistung zurück, die alle Konflikte in einem Dokument darstellt.

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

Locks

Gibt eine CoAuthLocks -Auflistung zurück, die die Sperren im Dokument darstellt.

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

Me

Gibt ein Mitauthor -Objekt zurück, das den aktuellen Benutzer darstellt.

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

PendingUpdates

Gibt true zurück, wenn das Dokument ausstehende Updates enthält, die nicht akzeptiert wurden.

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

Updates

Gibt eine CoAuthUpdates -Auflistung zurück, die die neuesten Aktualisierungen darstellt, die mit dem Dokument zusammengeführt wurden.

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