JZTXT

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

发布时间 2023-07-09 09:31:46作者: 沭水之虾
Sub 删除分节符和分页符1()
    ActiveDocument.Content.Find.Execute FindText:="^b", ReplaceWith:="", Replace:=wdReplaceAll '删除分节符
    ActiveDocument.Content.Find.Execute FindText:="^m", ReplaceWith:="", Replace:=wdReplaceAll '删除分页符
End Sub