Автор Тема: word 2007 Сохранение форматирования при замене текста  (Прочитано 1503 раз)

lapin9126

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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
Вот так сохраняется форматирование:

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

lapin9126

  • Гость
Огромное спасибо.