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(p")
With objRegExp
'正則表達式匹配文本類型
Pattern = nPt
'設置僅匹配第一個或是匹配所有符合條件的內容
Global = True
MultiLine = False
IgnoreCase = False
End With
sty = InputBox("請輸入樣式名稱")
Set docDocument = ActiveDocument
For i = 1 To t
k = graphs(i)
If (k) Then
graphs(i)ct
With Selection
'如果匹配到符合條件的標題,則將其樣式設置為sty(注:sty為Word中的樣式名稱,需在程序運行前預先定義好)
style=es(sty)
End With
End If
Next
End Sub