如何编写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