Klasse CoAuthLock (Word VBA)

Die Klasse CoAuthLock stellt eine Sperre im Dokument dar.

Die wichtigste Prozedur der Klasse CoAuthLock ist CoAuthLocks.Add

Set

Um eine CoAuthLock -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cal as CoAuthLock
Set cal = ActiveDocument.Range.Locks(Index:=1)

Die folgenden Prozeduren können zum Festlegen der CoAuthLock Klassenvariablen verwendet werden : CoAuthLocks.Add, CoAuthLocks.Item, CoAuthor.Locks, CoAuthoring.Locks und Range.Locks

For Each

Hier ist ein Beispiel für die Verarbeitung der CoAuthLock -Elemente in einer Sammlung

Dim cal As CoAuthLock 
For Each cal In ActiveDocument.CoAuthoring.Locks 
    If cal.Type = wdLockReservation Then cal.Unlock 
Next cal

Methoden

Dies ist die Hauptmethode der Klasse CoAuthLock

CoAuthLocks.Add - Gibt ein CoAuthLock -Objekt zurück, das eine Sperre darstellt, die einem angegebenen Bereich hinzugefügt wurde.

Dim cal As CoAuthLock
Set cal = ActiveDocument.Range.Locks.Add()

Eigenschaften

HeaderFooter Dieses Objekt oder dieser Member ist veraltet.

Dim booHeaderFooter As Boolean
booHeaderFooter = ActiveDocument.Range.Locks(1).HeaderFooter

Owner

Dim carOwner As CoAuthor
Set carOwner = ActiveDocument.Range.Locks(1).Owner

Parent Gibt einen Wert vom Object zurück, der das übergeordnete Objekt des angegebenen CoAuthLock -Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Locks(1).Parent

Range Gibt ein Range-Objekt zurück, das den Teil eines Dokuments darstellt, der in dem angegebenen Objekt enthalten ist.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Locks(1).Range

Type Gibt eine WdLockType-Konstante zurück, die einen Sperrentyp angibt.

Dim wltType As WdLockType
wltType = ActiveDocument.Range.Locks(1).Type

CoAuthLocks.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Sperren in der CoAuthLocks -Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Locks.Count

CoAuthLocks.Parent Gibt einen Wert vom Object zurück, der das übergeordnete Objekt des angegebenen CoAuthLocks -Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Locks.Parent