Поиск и замена от противного

При выводе PDF-документа в формат DOC и в некоторых других случаях получившийся DOC-документ содержит лишние стили, шрифты, выравнивания, размеры шрифтов, смещения, интервалы, отступы, мягкие переносы, разрывы и прочее. Задача состоит в том, чтобы избавиться от этой нагрузки, не потеряв форматирование документа, а именно:
- заголовки
- нумерованные и маркированные списки
- полужирные и курсивные начертания
- подстрочные и надстрочные форматирования
- форматирования шрифтом Courier листингов
- выделения текста маркером

Решить ее можно двумя способами:
1. или выделив неким (допустим, красным) цветом текст с неподходящим форматированием - этот вариант предпочтительнее, важнее обратить внимание на такие места и вручную подправить, так как в пакетном режиме что-то может измениться по ошибке
2. или заменив нужным, к примеру Обычным стилем (хотя в этом случае, сбрасывается не все форматирование и помогает лишь полный сброс форматирования фрагмента).

Итоговый док должен содержать текст со стандартным текстом в стиле Обычный, Times New Roman 12 (Courier 12 для листингов) (для заголовков стандартные Cambria/Calibri)

Вот макрос, который выделяет все параграфы документа, высота шрифта которых не равна 10

Sub pom()
'

Dim par As Paragraph

   For i = 1 To ActiveDocument.Paragraphs.Count Step 1
   
   Set par = ActiveDocument.Paragraphs(i)
   
    par.Range.Select
        
    If Selection.Font.Size <> 10 Then
    Selection.Range.HighlightColorIndex = wdRed
    End If
   
   Next i
    
    
End Sub

Дальше "городите" свои "Ифы", чтобы понять как из оформить воспользуйтесь макрорекордером, изменяя форматирование параграфов и смотрите какой код записывается при записи макроса.

Вообще странное решение проблемы, как вариант можно не просто выделять нестандартный шрифт, а сразу делать его стандартным (задавая сложное условие).