Word VBA 代码：将分页符替换为段落符

Sub ReplacePageBreak()

Dim myDoc As Document
Set myDoc = ActiveDocument

With myDoc.Content.Find
    .ClearFormatting
    .Text = '^m^m'
    .Replacement.Text = '^m'
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .Execute Replace:=wdReplaceAll
End With

End Sub