Range.Locks (Word)

Devuelve un objeto de colección CoAuthLocks que representa todos los bloqueos del intervalo.

Utilice la propiedad bloquea para devolver la colección CoAuthLocks.

MsgBox ActiveDocument.Paragraphs(1).Range.Locks.Count