Умное удаление Шрифт - Цвет выделения текста - Жёлтый

Всем здравствуйте.

В сети нашел макрос

Код:

Sub Процедура1()

With ActiveDocument.Content.Find

    .Highlight = True

    .Format = True

    Do While .Execute = True

        If .Parent.HighlightColorIndex = wdRed Then

            .Parent.Delete

        End If

    Loop

End With

End Sub

Есть оригинальный файл 1.doc - внутри файла 2019-05-19_15-46-51.zip

Если из файла 1.doc я вручную удаляю строки, выделенные желтым - у меня на выходе файл 1_вручную.doc

Если к файлу 1.doc применить макрос - у меня на выходе файл 1_macros.doc

Пожалуйста, я очень прошу, помогите, как сделать, чтобы после макроса было также, как в файле 1_вручную.doc, чтобы макрос удалял строки, выделенные жёлтым без удаления в конце строки "Enter" или символа каретка или как он правильно называется \n

Спасибо.