Revision.MovedRange (Word)

Renvoie un objet Range qui représente une plage de texte qui a été déplacée d'un endroit à un autre dans un document avec des marques de révision.

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