VBA在分节符前插入段落标志

ke3088

便于下步的操作，用VBA把前面没有段落的分节符找出来，如下图：



替换成下图：




该代码怎么写，向老师请教，谢谢。
我尝试写了一段，但停留在第一个分节符，便不再往下查找：

    For j = 1 To ActiveDocument.Sections.Count
        With ActiveDocument.Content.Find
               .ClearFormatting
               .Text = "^12"
               .Replacement.Text = ""
               .Forward = True
               .MatchWildcards = True
                If .Execute Then
                   .Parent.Select
                    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
                    str_T = Selection.Range.Text
                    If Asc(str_T) <> 13 Then
                       Selection.InsertAfter Chr(13)
                    End If
                End If
        End With
    Next j

413191246se

ke3088兄：不太明白你的意思，但请应用我下面的通用查找程序：（自己修改一下）

1. Sub FindActiveDocument()
   
2. '全文查找/光标不动/不激活对象/速度极快！
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = "[0-9.,， 　^s^t]{1,}元"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 .Font.Color = wdColorRed
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码

ke3088

413191246se 发表于 2021-11-2 16:53
ke3088兄：不太明白你的意思，但请应用我下面的通用查找程序：（自己修改一下）

413191246se兄，我是想找到前面没有段落标志的分节符后，在分节符前增加一个段落标志，方便下一步对段落的操作。先修改修改您的代码，看行不行。

ke3088

413191246se兄，修改您代码成功了，速度很快，如下：

Sub FindActiveDocument()
'全文查找/光标不动/不激活对象/速度极快！
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "^12"
        .Forward = True
        .MatchWildcards = True
         Do While .Execute
             With .Parent.Select
                   Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
                   str_T = Selection.Range.Text
                   If Asc(str_T) <> 13 Then
                      Selection.InsertAfter Chr(13)
                   End If
             End With
         Loop
    End With
End Sub
谢谢您！

413191246se

ke3088兄：祝贺！！！

ke3088

413191246se兄，同贺，同喜