如何用正则表达式对文档内容进行格式化

ljyjxx

各位达人，我想用正则表达式对文档格式进行统一，把
（一）、XXXX
（二）XXX。XXX。
（三）、XXXX
这样的内容统一成
（一）XXX
（二）XXXX。XXX。
（三）XXX
这样的，内容见附件，我试着写了一段，可是对于（二）这样类型的就不知道怎么判断和设置格式了，求帮助！

原格式.rar (9.75 KB, 下载次数: 3)

2019-6-21 16:12 上传

点击文件名下载附件

Sub 二级标题并替换1()
Dim col As New Collection, k&
       Dim mt, oRang As Range, rng As Range, n%, m%, un$
    Set rng = ActiveDocument.Content
  '  LineCount
        With CreateObject("vbscript.regexp")
        .Pattern = "(^（[一二三四五六七八九十]+）)(\、)?([^\。|^\r]+)(\。)?(\r$)?"
        .Global = True: .MultiLine = True
        For Each mt In .Execute(rng)
        k = k + 1
            m = mt.FirstIndex: n = mt.Length
            Set oRang = ActiveDocument.Range(m, m + n)
            oRang.Font.Size = 16
            oRang.Font.Name = "方正楷体_GBK"
            col.Add oRang, CStr(k)
        Next
        For j = 1 To col.Count

    ' MsgBox col(j)

  col(j) = .Replace(col(j), "$1$3")
   ' MsgBox col(j)
    Next
    End With
End Sub

ming0018

纯文本可以用这个思路，有分节符，分节符，表格就会有问题了。

ljyjxx

ming0018 发表于 2019-6-21 16:15
纯文本可以用这个思路，有分节符，分节符，表格就会有问题了。

因为处理的都是文件，基本都是纯文本，表格这些我就先不考虑，呵呵。

413191246se

楼主，无需正则，VBA一行代码即可：
Sub 查找和替换()
    ActiveDocument.Content.Find.Execute "）、", , , , , , , , , "）", 2
End Sub

ljyjxx

413191246se 发表于 2019-6-21 17:12
楼主，无需正则，VBA一行代码即可：
Sub 查找和替换()
    ActiveDocument.Content.Find.Execute "）、", ...

非常感谢，我试了下
这样只能把"）、"修改过来，可是无法把

（二）、认真做好信息报送工作。真做好信息报送工作。认真做好信息报送工作。

修改成

（二）认真做好信息报送工作。真做好信息报送工作。认真做好信息报送工作。

这样的

wdpfox

好像标题应该以整段来设置，所以你那个（二）的设置不是标题设置吧

413191246se

楼主，请试用第 3 个帖子：《Word2003 & 2007 自动排版宏（集成版）》中的代码，就能解决你的问题了。