如何用vba在word中删除所有手动分页符或者分节符?

在word vba 中 Break 对象可以用来表示分页符、分栏符、分节符等各种分隔符,但是它没有提供判断分隔符的类型的属性和删除分隔符的方法。

如果要用vba删除手动分页符可以使用查找替换的方法。

代码所示:

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Dim oRng As Range
    Set oRng = Word.ActiveDocument.Content
    With oRng.Find
        .ClearFormatting
        .MatchWildcards = False
        '手动分页符
        .Text = "^m"
        .Execute ReplaceWith:="", Replace:=wdReplaceAll
    End With
End Sub

如果要用vba删除手动分节符也可以使用查找替换的方法。

代码如下:

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Dim oRng As Range
    Set oRng = Word.ActiveDocument.Content
    With oRng.Find
        .ClearFormatting
        .MatchWildcards = False
        '手动分节符
        .Text = "^b"
        .Execute ReplaceWith:="", Replace:=wdReplaceAll
    End With
End Sub

 

       

发表评论