Выделить несколько строчек в тексте

[Jullap]

Люди, помогите, нужен макрос для Worda который будет выделять заголовки абзацев. Например есть такой текст:

Домашние портативные ПК HP
Идеальный ПК. Совершенство дизайна и высочайшая производительность.

Домашние портативные ПК Compaq
В этом компьютере есть всё, что необходимо, и ничего лишнего.

Ноутбуки премиум класса HP Envy
Идеальный ПК. Совершенство дизайна и высочайшая производительность.

Нужно выделить заголовки чтобы можно было скопировать в итоге так:
Домашние портативные ПК HP
Домашние портативные ПК Compaq
Ноутбуки премиум класса HP Envy

Пожалуйста кто-нибудь посоветуйте как можно это автоматизировать. Абзацы всегда разделяются двумя знаками абзаца.

 

[Вождь]

Для выделения всех заголовков-абзацев, перед которыми есть пустой абзац:
- открываем диалог "Поиск и замена" (Ctrl+F)
- поле "Найти": ^13^13*^13 или ^13^13[!^13]@^13
- параметр "Выделить все элементы...": Вкл
- параметр "Подстановочные знаки": Вкл
- жмем кнопку "Найти все"

Теперь копируем найденное в новый документ, сортируем (чтобы пустые абзацы оказались внизу) или удаляем (поиском и заменой) пустые абзацы.