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

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

Пример

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


2000 г.р.

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

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

Макрос

Sub Макрос()

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

End Sub

[свернуть]

спасибо