Revision.MovedRange (Word)

Returns a Range object that represents a range of text that was moved from one place to another in a document with tracked changes.

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