Revision.MovedRange (Word)

Retorna um objeto Range que representa um intervalo de texto que foi movido de um local para outro em um documento com alterações controladas. Somente leitura.

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