Range.Relocate (Word)

Verschiebt in der Gliederungsansicht die Absätze innerhalb des angegebenen Bereichs hinter den nächsten sichtbaren Absatz oder vor den vorherigen sichtbaren Absatz.

Ein Textkörper wird mit einer Überschrift nur verschoben, wenn der Textkörper in der Gliederungsansicht reduziert wurde, oder wenn er Teil des Bereichs ist.

Relocate (Direction)

Direction: Die Richtung, in der die Verschiebung erfolgt.

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