Автор Тема: Word VBA Макросы. Как заменить знаки абзацев на пробелы с помощью макроса?  (Прочитано 230 раз)

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Нужен макрос для замены знаков абзацев на пробелы в выделенном фрагменте текста в Word'е.

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

  • Administrator
  • Сообщений: 1939
Sub Макрос()
   
    With Selection.Range.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Всё убирает, как надо. Спасибо.