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

End Sub