Форум по VBA, Excel и Word

Доброго дня всем.  Помогите с макросом. Как сохранить первоначальный формат текста при его замене.
   With Selection.Find
        .Text = ".^p^pРЕГИОНАЛЬНЫЕ    НОВОСТИ."
        .Replacement.Text = "^p^pРЕГИОНАЛЬНЫЕ    НОВОСТИ."
        .Forward = True
        .Wrap = wdFindContinue
    End With

Вот так сохраняется форматирование:

Sub Макрос1()
    With Selection.Find
        .Text = "(.)(^0013^0013РЕГИОНАЛЬНЫЕ    НОВОСТИ.)"
        .Replacement.Text = "\2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Огромное спасибо.