Word段落中，每隔两个句号增加一个段落

淘朴

整理一些书籍文本，进行排版。
源文档中，整篇文章只有一个段落，这样段落过长。
现在对于示例的文档，想要处理成，每隔两个句号，就增加一个段落。
也就是，在已有的段落中，每两个句号就增加一个段落符标记，求教处理办法。







示例文档.zip (17.71 KB, 下载次数: 6)

2020-8-6 08:00 上传

点击文件名下载附件

gbgbxgb

淘朴

gbgbxgb 发表于 2020-8-6 08:58

通配符的文本，能复制到这里吗，感谢

淘朴

gbgbxgb 发表于 2020-8-6 08:58

非常感谢指教，已会用了：

[!。]{1,}。[!。]{1,}。

^&^13

凌空一羽

Sub lkyy()
Dim doc As Document
Set doc = Word.ActiveDocument
For Each r In doc.Content.Characters
    m = m + 1
    If r = "。" Then
        n = n + 1
        If n Mod 2 = 0 Then doc.Range(m, m).InsertParagraphAfter
    End If
Next

End Sub

淘朴

凌空一羽 发表于 2020-8-6 12:17
Sub lkyy()
Dim doc As Document
Set doc = Word.ActiveDocument

感谢提供解决方案，宏代码测试可用