У Тима есть список элементов в документе Word. Каждый элемент находится в отдельном абзаце (введите в конце), а не в таблице. К некоторым элементам (параграфам) применено выделение. Тим интересуется, есть ли способ отсортировать абзацы так, чтобы выделенные абзацы были вместе. Другими словами, ему нужно отсортировать по выделению в качестве первичного ключа сортировки.

Word может сортировать по многим параметрам, но сортировка по выделению не входит в их число. Однако «Найти и заменить» может выполнять поиск выделения. Один из методов — использовать «Найти и заменить» для добавления к каждому выделенному абзацу уникального ключевого слова, снова запустить «Найти и заменить», чтобы префикс невыделенных абзацев другим ключевым словом, а затем отсортировать документ, используя первое слово в качестве первого ключа, чтобы выделенный абзацы вместе. После этого запустите 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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13272) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.