[Iska]

Кнопку назначил, Сервис > Настройка…»

Стало быть — «ручками».

Но макрос работает некорректно, приходится править. Вот код. »

В чём именно проявляется его некорректность?

Код: For Each par In ActiveDocument.Paragraphs »

То бишь, Вы хотите получить один абзац на весь документ? Сомневаюсь.

Лучше так:

Код:

    Dim i As Long
    
    
    With Selection.Paragraphs
        For i = .Count - 1 To 1 Step -1
            With .Item(i).Range
                .Collapse Direction:=wdCollapseEnd
                .MoveStart Count:=-1
                .Delete
                .InsertAfter " "
            End With
        Next
    End With

— меняет в выделении все символы абзаца на пробел за исключением последнего. Т.е., Вы выделяете «кривые» абзацы — содержимое будущего единого абзаца, затем исполняете макрос.

Кстати, запускать макрос на исполнение куда быстрее будет не кнопкой на панели инструментов, а горячей клавишей. И не забудьте включить отображение непечатных символов — будет проще работать.