Range.Updates (Word)

Devuelve un objeto de colección CoAuthUpdates que representa todas las actualizaciones que se han combinado en el rango especificado en la última vez que guardó explícita.

Use la propiedad Updates para devolver la colección CoAuthUpdates.

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