WORD VBA 删除分节符和分页符1 

Sub 删除分节符和分页符1()
    ActiveDocument.Content.Find.Execute FindText:="^b", ReplaceWith:="", Replace:=wdReplaceAll '删除分节符
    ActiveDocument.Content.Find.Execute FindText:="^m", ReplaceWith:="", Replace:=wdReplaceAll '删除分页符
End Sub

 

posted @ 2023-07-09 09:24  沭水之虾  阅读(368)  评论(0)  编辑  收藏  举报