如何将错误段落标记符号替换为空？

wonyee

如图，想写一段代码，把文章种的这种分段取消，特征为：段落标记前没有“.”
---请高手指点，感谢

紫色海水

查找替换，勾选通配符

wonyee

紫色海水 发表于 2022-7-1 11:58
查找替换，勾选通配符

谢谢解答。测试似乎没通过？

wonyee

谢谢大家。我已写好代码，测试通过，分享如下：
Sub 删除错误分段2()
    Dim Pr As Paragraph
    Dim i As Long
    On Error Resume Next
    '先删除空行
    For Each Pr In ActiveDocument.Paragraphs
        With Pr.Range
            If Len(Trim(.Text)) = 1 Then .Delete '删除空行
        End With
    Next
    '再删除断段
    For i = 1 To ActiveDocument.Paragraphs.Count
        With ActiveDocument.Paragraphs(i).Range
            If Len(.Text) > 2 Then
                If Not InStrRev(.Text, ".", -1) = Len(.Text) - 1 Then '如果断段没有句号
                    If Not UCase(Left(ActiveDocument.Paragraphs(i + 1).Range.Text, 1)) = Left(ActiveDocument.Paragraphs(i + 1).Range.Text, 1) Then   '如果下一段首字母是小写
                        .Text = Left(.Text, Len(.Text) - 1)'删除段落标记
                    End If
                End If
             End If
        End With
    Next
  End Sub

wuwenbin32415

^p应该是^13

413191246se

1. Sub aaaa_0703_LineBreakLink()
   
2.     ActiveDocument.Content.Find.Execute FindText:="([!.])^13", MatchWildcards:=True, ReplaceWith:="\1 ", Replace:=wdReplaceAll
   
3. End Sub

复制代码