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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024