查找分节符和分页符并删除

大罡

如下代码实现了光标处删除分节符，怎么实现，运行一次，让代码自己判断，如果是分节符，则删除，如果是分页符也删除。

1. Sub Del_sectionbreak()
   
2.     Selection.Find.ClearFormatting
   
3.     With Selection.Find
   
4.         .Text = "^m"
   
5.         .Replacement.Text = ""
   
6.         .Forward = True
   
7.     End With
   
8.          Selection.Find.Execute Replace:=wdReplaceOne
   
9. End Sub

复制代码

蜀中草莽

Sub 删除分页符分节符()

    Dim 符号 As Range
    Set 符号 = Word.ActiveDocument.Content
    With 符号.Find
        .ClearFormatting
        .MatchWildcards = False
              .Text = "^m"
        .Execute ReplaceWith:="", Replace:=wdReplaceAll
    End With
    With 符号.Find
        .ClearFormatting
        .MatchWildcards = False
        .Text = "^b"
        .Execute ReplaceWith:="", Replace:=wdReplaceAll
    End With
End Sub

大罡

删除 当前页的分节符，或者分页符。

limonet

Ctrl+h
查找内容：^m
使用通配符：勾选
全部替换

大罡

limonet 发表于 2022-3-1 22:13
Ctrl+h
查找内容：^m
使用通配符：勾选

用代码实现，去判断当前页的分节符和分页符，然后自动删除。就点一下鼠标的事情，难道不香吗？

大罡

1. Sub Del_sectionbreakORpagebreak()
   
2. Selection.Bookmarks("\page").Range.Select
   
3.   With Selection.Find
   
4.    .ClearFormatting
   
5.    .Execute FindText:="^b", Format:=True '分节符
   
6.    fnd = .Found
   
7.   End With
   
8.   If fnd = True Then
   
9.     With Selection.Find
   
10.         .ClearFormatting
    
11.         .Text = "^b"
    
12.         .Replacement.Text = " "
    
13.         .Forward = True
    
14.         .Execute Replace:=wdReplaceOne
    
15.     End With
    
16.   Else
    
17.    With Selection.Find
    
18.         .Text = Chr(12)
    
19.         .Replacement.Text = ""
    
20.         .Forward = True
    
21.         .Execute Replace:=wdReplaceOne
    
22.     End With
    
23. End If
    
24. 
    
25. End Sub

复制代码

上面这段代码用来实现 删除当前页的分节符，或者分页符，但是 为什么不能删除分节符呢？大牛帮忙看看