现在想实现以下功能：
    1.使用正则表达式找到以“一、”开头到遇到换行符的字符串（即一级标题） 
    2.将找到的字符串应用样式：标题1

Sub 宏5()

    Dim rg As New RegExp

    rg.Global = True

    rg.IgnoreCase = True

    rg.MultiLine = True

    rg.Pattern = "[一二三四五六七八九十]+、.*?$" '$以硬回车作为一行的结束，软回车不起作用

    Dim ms As MatchCollection

    Set ms = rg.Execute(ActiveDocument.Content.text)

    Dim mh As Match

    Dim r As Range

    For Each mh In ms

        Set r = ActiveDocument.Range(mh.FirstIndex, mh.FirstIndex + mh.Length)

        r.Select

        r.Style = ActiveDocument.Styles("标题 1") '而且标题1样式以段落为单位，不只选定部分。

    Next

End Sub