Как удалить все разрывы страниц PageBreak из документа?

[Talker]

Попробовал сделать так

Код: Выделить всё

For Each P In ActiveDocument.Paragraphs
    If P.PageBreakBefore = True Then P.PageBreakBefore = False
Next

Не сработало
Как правильно это сделать?

[GSerg]

Код: Выделить всё

with activedocument.range.find
  .clearformatting
  .execute "^m", ReplaceWith:=vbnullstring, Replace:=wdReplaceall
end with

[Talker]

Спасибо.