怎么样在vb中运行宏

Question

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

Answer 1

你是大好人
把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