Clase CoAuthLock (Word VBA)

La clase CoAuthLock representa un bloqueo dentro del documento.

El principal procedimiento de la clase CoAuthLock es CoAuthLocks.Add

Set

Para usar una variable de clase CoAuthLock, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase CoAuthLock : CoAuthLocks.Add, CoAuthLocks.Item, CoAuthor.Locks, CoAuthoring.Locks y Range.Locks

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CoAuthLock en una colección.

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

Métodos

Este es el método principal de la clase CoAuthLock

CoAuthLocks.Add - Devuelve un objeto CoAuthLock que representa un bloqueo agregado a un intervalo especificado.

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

Propiedades

HeaderFooter Este objeto o miembro ha quedado obsoleto.

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

Owner

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

Parent Devuelve un objeto Object que representa el objeto primario del objeto CoAuthLock especificado.

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

Range Devuelve un objeto Range que representa la parte de un documento incluida en el objeto especificado.

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

Type Devuelve una constante WdLockType que especifica el tipo de bloqueo.

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

CoAuthLocks.Count Devuelve un Long que representa el número de bloqueos de la colección CoAuthLocks .

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

CoAuthLocks.Parent Devuelve un objeto Object que representa el objeto primario del objeto CoAuthLocks especificado.

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