Как удалить разрыв раздела (непрерывный), но не разрыв раздела (Следующая страница) из всего документа одним щелчком мыши?

Question

У меня есть код, но я получаю сообщение об ошибке:

Ошибка времени выполнения '5138': настройки, выбранные для левого и правого полей, межстрочного интервала или отступов абзаца, слишком великидля ширины страницы в некоторых разделах.

Вот что я пробовал:

Dim i As Integer
Dim sb As Range

With ActiveDocument
            For i = .Sections.Count To 2 Step -1
                With .Sections(i)
                    If .PageSetup.SectionStart = wdSectionContinuous Then
                        .PageSetup.SectionStart = ActiveDocument.Sections(i - 1).PageSetup.SectionStart
                        Set sb = ActiveDocument.Sections(i - 1).Range
                        sb.End = sb.End - 1
                        sb.Collapse wdCollapseEnd
                        sb.Delete
                    End If
                End With
            Next i
        End With

Поиск кода, который удаляет только разрыв раздела, продолжается, а не разрыв раздела на следующей странице.