Revision.MovedRange (Word)

Devuelve un objeto Range que representa un rango de texto que se movió de un punto a otro en un documento con marcas de revisión.

Dim rngMovedRange As Range
Set rngMovedRange = ActiveDocument.Range.Revisions(1).MovedRange