Макрос
Sub макрос()
With ActiveDocument.Range.Find
' Что искать.
.Text = "(^13)(_{1;}^13)"
' На что менять.
.Replacement.Text = "\1"
' Галочка 'Подстановочные символы'.
.MatchWildcards = True
' Замена.
.Execute Replace:=wdReplaceAll
End With
End Sub
Расшифровки подстановочных символов.Text = "(^13)(_{1;}^13)"
Круглые скобки позволяют обращаться к фрагментам искомого выражения по порядковым номерам.
^13 - знак абзаца.
_{1;} - один или несколько символов "_".
.Replacement.Text = "\1"
\1 - подставить данные из первых круглых скобок. То есть в нашем случае подставить знак абзаца.
Если просто менять на "^13", то оформление текста съезжает, т.к. некоторое оформление находится в знаке абзаца. При использовании "\1" исходный знак абзаца остаётся. А если использовать "^13", то знак абзаца удаляется и вставляется новый знак абзаца.