Range.Locks (Word)

Retorna um objeto da coleção CoAuthLocks que representa todos os bloqueios no intervalo. Somente leitura.

Use a propriedade bloqueia para retornar a coleção CoAuthLocks.

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