مرتب سازی بر اساس برجسته کردن

Question

تیم لیستی از موارد موجود در یک سند Word دارد. هر مورد در پاراگراف خودش است ( در پایان وارد کنید ) و نه در جدول. برخی از موارد (پاراگراف ها) بر روی آنها برجسته شده است. تیم به این فکر می کند که آیا راهی برای مرتب کردن پاراگراف ها به گونه ای وجود دارد که پاراگراف های برجسته شده با هم باشند. به عبارت دیگر، او نیاز به مرتب سازی بر اساس برجسته به عنوان کلید مرتب سازی اولیه دارد.

کلمه می تواند بر اساس چیزهای زیادی مرتب شود، اما مرتب سازی با برجسته کردن یکی از آن چیزها نیست. با این حال، Find & Replace می تواند برای برجسته سازی جستجو کند. یک روش این است که از Find & Replace برای پیشوند هر پاراگراف برجسته شده با یک کلمه کلیدی منحصر به فرد استفاده کنید، دوباره Find & Replace را اجرا کنید تا پاراگراف های غیرهایلایت شده را با کلمه کلیدی دیگری پیشوند قرار دهید، سپس سند را با استفاده از کلمه اول به عنوان اولین کلید مرتب کنید به طوری که برجسته شده پاراگراف ها با هم هستند سپس Find & Replace را اجرا کنید تا دو کلمه کلیدی خاص حذف شود. بدیهی است که راه اندازی این روش دشوار است و به چندین مرحله نیاز دارد.

روش دیگر این است که به سادگی همه پاراگراف ها را بدون توجه به برجسته کردن مرتب کنید. پس از انجام این کار، می توانید از یک ماکرو برای انتقال پاراگراف های برجسته شده به ابتدای سند استفاده کنید. پاراگراف های برجسته شده به ترتیب مرتب شده ای که در سند بودند ظاهر می شوند.

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