怎么样在vb中运行宏

[xch2125535]

我做的是考试系统，要求在执行交卷操作之后能够自动执行vb中的宏，看看在word中的操作是否正确，然后给出相应的得分并且把得分写到数据库中去，请问给位朋友这部分应该怎样实现啊？就是交卷执行宏并看看操作是否执行了，谢谢大家了！

[zhuanzhu_zhizhuo]

你是大好人
把40分给我吧
Private Sub Command1_Click()
Dim num As Integer
Dim apl As New Word.Application
apl.Documents.Open "d:\word\Doc1.doc"
apl.Visible = False
apl.Run "Project.NewMacros.test"
apl.Documents.Close
apl.Quit
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\word\db1.jsj;Persist Security Info=False"
cn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from a", cn, adOpenDynamic, adLockOptimistic, -1
rs.MoveFirst
num = rs("num").Value
rs.Update
rs.Close
cn.Close
MsgBox num
End Sub