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

Word => Макросы в Word => Тема начата: persik от 02 Сентябрь 2021, 15:10

Название: Word VBA Макросы. В таблице удалить знак абзаца после точки.
Отправлено: persik от 02 Сентябрь 2021, 15:10

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

Название: Re: Word VBA Макросы. В таблице удалить знак абзаца после точки.
Отправлено: Администратор от 02 Сентябрь 2021, 15:59

Sub Макрос()
   
    With Selection.Range.Find
        .Text = ".^p"
        .Replacement.Text = "."
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

Название: Re: Word VBA Макросы. В таблице удалить знак абзаца после точки.
Отправлено: persik от 02 Сентябрь 2021, 16:17

Прекрасно! Отлично работает! Спасибо!