Word VBA-标题设置

==========================

'^第[一二三四五六]章、(.)*
Sub Word使用正则表达式批量设置标题样式()                                         
    '创建正则表达式对象
    Dim objRegExp As Object
    '创建word对象
    Dim docDocument As Document
    
    Dim i As Integer
    Dim k As String, nPt As String, sty As String
    
    
    nPt = InputBox("请输入需要匹配的正则表达式")
    Set objRegExp = CreateObject("vbscript.regexp")
        With objRegExp
             '正则表达式匹配文本类型
             .Pattern = nPt
             '设置仅匹配第一个或是匹配所有符合条件的内容
             .Global = True
             .MultiLine = False
             .IgnoreCase = False
        End With
    
    sty = InputBox("请输入样式名称")
    Set docDocument = ActiveDocument
    
    For i = 1 To docDocument.Paragraphs.Count
        k = docDocument.Paragraphs(i).Range.Text
        If objRegExp.test(k) Then
            docDocument.Paragraphs(i).Range.Select
            With Selection
            '如果匹配到符合条件的标题，则将其样式设置为sty(注：sty为Word中的样式名称，需在程序运行前预先定义好)
            .Style = ActiveDocument.Styles(sty)
            End With
        End If
    Next

End Sub

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================