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