Während Sie ein Dokument entwickeln, kann es vorkommen, dass Sie zwei benachbarte Absätze transponieren möchten. Sie müssen lediglich die Einfügemarke zwischen zwei Absätzen positionieren, die Sie transponieren möchten, und dann das Makro in diesem Tipp ausgeben. Wenn Sie den Cursor innerhalb eines Absatzes positionieren, wird davon ausgegangen, dass Sie den aktuellen Absatz wie folgt transponieren möchten. Dieses Makro, TransposeParagraphs, erledigt den Trick:

Sub TransposeParagraphs()

Selection.MoveUp Unit:=wdParagraph, _       Count:=1, Extend:=wdExtend     Selection.MoveLeft Unit:=wdCharacter, Count:=1     Selection.MoveDown Unit:=wdParagraph, _       Count:=1, Extend:=wdExtend     Selection.Range.Cut     Selection.MoveDown Unit:=wdParagraph, Count:=1     Selection.Range.Paste End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (977) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Transponieren von zwei Absätzen.