Clase CoAuthLocks (Word VBA)
Una colección de objetos CoAuthLock . Para usar una variable de clase CoAuthLocks, primero debe ser instanciado, por ejemplo
Dim cals as CoAuthLocks
Set cals = ActiveDocument.Range.Locks
Add
Devuelve un objeto CoAuthLock que representa un bloqueo agregado a un intervalo especificado.
En el ejemplo de código siguiente se agrega un bloqueo de reserva al primer párrafo del documento activo.
ActiveDocument.CoAuthoring.Locks.Add(ActiveDocument.Paragraphs(1).Range, wdLockReservation)
Arguments
Optional arguments
Los siguientes argumentos son opcionales
Range - Range
Type - WdLockType
Valores posibles son
| wdLockChanged | Especifica un bloqueo de marcador de posición. |
| wdLockEphemeral | Especifica un bloqueo efímero. |
| wdLockNone | Reservado para uso posterior. |
| wdLockReservation | Especifica un bloqueo de reserva. |
Count
Devuelve un Long que representa el número de bloqueos de la colección CoAuthLocks .
MsgBox "The active document contains " & _
ActiveDocument.CoAuthoring.Locks.Count & " locks."
Item
Devuelve un objeto CoAuthLock individual de una colección.
Item (Index)
Index: El objeto individual que se va a devolver.
Dim cal As CoAuthLock
Set cal = ActiveDocument.Range.Locks(Index:=1)
RemoveEphemeralLocks
Quita los bloqueos efímeros del documento.
Los bloqueos efímeros se aplican automáticamente a un intervalo cuando un autor de co comienza a editar un documento que tiene la creación de co habilitada.
ActiveDocument.CoAuthoring.Locks.RemoveEphemeralLocks