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

[Game]

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

Пример

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


2000 г.р.

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

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

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

Макрос

Sub Макрос()

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

End Sub

[свернуть]

[Game]

спасибо