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

'^第[一二三四五六]章、(.)* Sub Word使用正則表達式批量設置標題樣式() '創建正則表達式對象Dim objRegExp As Object'創建word對象Dim docDocument As DocumentDim i As IntegerDim k As String, nPt As String, sty As StringnPt = InputBox("請輸入需要匹配的正則表達式")Set objRegExp = CreateObject("vbscript.regexp")With objRegExp'正則表達式匹配文本類型.Pattern = nPt'設置僅匹配第一個或是匹配所有符合條件的內容.Global = True.MultiLine = False.IgnoreCase = FalseEnd Withsty = InputBox("請輸入樣式名稱")Set docDocument = ActiveDocumentFor i = 1 To docDocument.Paragraphs.Countk = docDocument.Paragraphs(i).Range.TextIf objRegExp.test(k) ThendocDocument.Paragraphs(i).Range.SelectWith Selection'如果匹配到符合條件的標題，則將其樣式設置為sty(注：sty為Word中的樣式名稱，需在程序運行前預先定義好).Style = ActiveDocument.Styles(sty)End WithEnd IfNextEnd Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

總結

以上是生活随笔為你收集整理的Word VBA-标题设置的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。