如何编写vb代码实现Excel练习题的自动改卷

如何编写vb代码实现Excel练习题的自动改卷

Set wd = CreateObject("word.application") 
Set doc = wd.Documents.Open("word文档的文件名") 
Set pg = doc.Paragraphs(1) '标题的段落 
If (pg.Range.Text = "自我介绍" & vbCr) And (pg.LineUnitAfter = 2) And (pg.LineUnitBefore = 2) And pg.Alignment=1 then 
MsgBox "判断成立" 
Else 
'判断不成立 
End If