vba數據如何錄入兩個標題

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(&#xp")

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