如何实现对word,access等的自动改卷!

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:02:47
最好是源代码的,BS或CS结构的都行!

看你的要求了!你试试这个!
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