Range.Relocate (Word)

No modo de estrutura de tópicos, move os parágrafos dentro do intervalo especificado para depois do próximo parágrafo visível ou antes do parágrafo visível anterior.

O corpo de texto será movido somente com um título se estiver recolhido no modo de estrutura de tópicos ou se for parte do intervalo.

Relocate (Direction)

Direction: A direção da movimentação.

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