Range.Updates (Word)

Retorna um objeto da coleção CoAuthUpdates que representa todas as atualizações que foram mescladas no intervalo especificado no último salvamento explícito. Somente leitura.

Use a propriedade Updates para retornar a coleção CoAuthUpdates.

Dim countOfUpdates As Integer 
 
countOfUpdates = ActiveDocument.Paragraphs(1).Range.Updates.Count 
 
MsgBox "The number of updates is " & countOfUpdates