Tim hat eine Liste von Elementen in einem Word-Dokument. Jedes Element befindet sich in einem eigenen Absatz (am Ende eingeben) und nicht in einer Tabelle. Auf einige der Elemente (Absätze) wird eine Hervorhebung angewendet. Tim fragt sich, ob es eine Möglichkeit gibt, die Absätze so zu sortieren, dass die hervorgehobenen Absätze zusammen sind. Mit anderen Worten, er muss nach Markierung als primärem Sortierschlüssel sortieren.

Das Wort kann nach vielen Dingen sortiert werden, aber das Sortieren nach Hervorheben gehört nicht dazu. Suchen & Ersetzen kann jedoch nach Hervorhebungen suchen. Eine Methode wäre, mit Find & Replace jedem markierten Absatz ein eindeutiges Schlüsselwort voranzustellen, Find & Replace erneut auszuführen, um nicht hervorgehobenen Absätzen ein anderes Schlüsselwort voranzustellen, und dann das Dokument mit dem ersten Wort als erstem Schlüssel so zu sortieren, dass das hervorgehobene Wort angezeigt wird Absätze sind zusammen. Führen Sie anschließend Suchen und Ersetzen aus, um die beiden speziellen Schlüsselwörter zu entfernen. Offensichtlich ist diese Methode schwierig einzurichten und erfordert mehrere Schritte.

Ein anderer Ansatz besteht darin, einfach alle Absätze zu sortieren, ohne Rücksicht auf die Hervorhebung. Sobald dies erledigt ist, können Sie ein Makro verwenden, um markierte Absätze an den Anfang des Dokuments zu verschieben. Die hervorgehobenen Absätze werden in der sortierten Reihenfolge angezeigt, in der sie sich im Dokument befanden.

Sub MoveHighlightedParas()

Dim paraMax As Long     Dim paraStart As Long     Dim j As Long     Dim r As Range

With ActiveDocument         paraMax = .Paragraphs.Count         paraStart = 0         j = paraMax         Do While j > paraStart             If .Paragraphs(j).Range.HighlightColorIndex <> wdNoHighlight Then                 .Paragraphs(j).Range.Cut                 Set r = .Content                 r.Collapse                 r.Paste                 paraStart = paraStart + 1             Else                 j = j - 1             End If         Loop     End With 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 (13272) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.