Word VBA Макросы: Как заменить все ентеры (энтеры, знаки абзацев) на пробелы?

Автор Game, 22 марта 2020, 07:10

Game

В Word файле есть текст и таблицы. Нужно заменить все ентеры на пробелы, в т.ч. и в таблицах.

Пример

Было
Иванов Иван
Иванович


2000 г.р.

Живет на планете Земля

Стало
Иванов Иван Иванович 2000 г.р. Живет на планете Земля

Администратор

Макрос
Sub Макрос()

    With ActiveDocument.Range.Find
        .Text = "^13{1;}"
        .Replacement.Text = " "
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With

End Sub
[свернуть]