Sortering Genom att lyfta fram

June 10

Tim har en lista med objekt i ett Word-dokument. Varje objekt är i sin egen punkt (Enter i slutet) och inte i en tabell. Några av punkterna (punkterna) har Framhäv tillämpas på dem. Tim undrar om det finns ett sätt att sortera punkter så att de markerade punkterna är tillsammans. Med andra ord, han behöver att sortera efter höjdpunkt som primär sorteringsnyckeln.

Ord kan sortera efter många saker, men sortering efter markering är inte en av dessa saker. Dock Sök och ersätt kan söka för att lyfta fram. En metod är att använda Sök och ersätt för att prefix varje markerad punkt med en unik sökord, springa Sök och ersätt igen för prefix icke markerade stycken med ett annat sökord, sedan sortera dokument med det första ordet som den första nyckeln så att den markerade punkterna är tillsammans. Efteråt kör Sök och ersätt för att ta bort de två särskilda sökord. Uppenbarligen är detta förfarande svårt att ställa in och kräver flera steg.

Ett annat tillvägagångssätt är att helt enkelt sortera alla stycken, utan hänsyn till markeringen. När detta är gjort, kan du använda ett makro för att flytta markerade punkter till början av dokumentet. De markerade punkterna kommer att visas i sorterad ordning de var i dokumentet.

Sub MoveHighlightedParas ()
Dim Paramax As Long
Dim paraStart As Long
Dim j As Long
Dim r Som Range

Med ActiveDocument
Paramax = .Paragraphs.Count
paraStart = 0
j = Paramax
Gör Medan j> paraStart
Om .Paragraphs (j) .Range.HighlightColorIndex <> wdNoHighlight Därefter
.Paragraphs (J) .Range.Cut
Ställ r = .Content
r.Collapse
r.Paste
paraStart = paraStart + 1
Else
j = j - 1
End If
Loop
End Med
End Sub

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (13272) gäller Microsoft Word 2007, 2010, och 2013.