Автор Тема: Word VBA Макросы. В таблице удалить знак абзаца после точки.  (Прочитано 244 раз)

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Как в выделенном фрагменте, который находится внутри таблицы, удалить знаки абзацев после точки?

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

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

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Прекрасно! Отлично работает! Спасибо!