Range.Relocate (Word)

En mode d'affichage Plan, déplace les paragraphes compris dans la plage spécifiée et les insère après le paragraphe visible suivant ou avant le paragraphe visible précédent.

Le corps de texte se déplace avec un titre uniquement si le corps de texte est réduit en mode Plan ou s'il fait partie de la plage.

Relocate (Direction)

Direction: Sens du déplacement.

theStart = ActiveDocument.Paragraphs(3).Range.Start 
theEnd = ActiveDocument.Paragraphs(5).Range.End 
Set myRange = ActiveDocument.Range(Start:=theStart, End:=theEnd) 
ActiveDocument.ActiveWindow.View.Type = wdOutlineView 
myRange.Relocate Direction:=wdRelocateDown