word自动评卷概要1.docVIP

Sub 方法对() Set wrd = CreateObject(Word.Application) wrd.Visible = False wrd.Documents.Open c:\ks\word.doc wrd.Documents(Word.doc).Activate errstring = rightstring = With wrd.Documents(Word.doc).PageSetup If .LeftMargin 79.4 Then errstring = errstring 左边距错误 vbCrLf 本行代码检测左边距2.8cm Else rightstring = rightstring 左边距设置正确 vbCrLf End If If .RightMargin 79.4 Then errstring = errstring 右边距错误 vbCrLf 本行代码检测右边距2.8cm Else rightstring = rightstring 右边距设置正确 vbCrLf End If If .TopMargin 85.05 Then errstring = errstring 上边距错误 vbCrLf 本行代码检测上边距3cm Else rightstring = rightstring 上边距设置正确 vbCrLf End If If .BottomMargin 85.05 Then errstring = errstring 下边距错误 vbCrLf 本行代码检测下边距3cm Else rightstring = rightstring 下边距设置正确 vbCrLf End If If .PaperSize wdPaperA4 Then errstring = errstring 纸型设置错误 vbCrLf 检测是否为A4 Else rightstring = rightstring 纸型设置正确 vbCrLf End If End With Dim doctablecount, i As Integer Dim str1 As String doctablecount = wrd.Documents(Word.doc).Tables.Count With wrd.Documents(Word.doc) If .Sections(1).PageSetup.Orientation wdOrientLandscape Then errstring = errstring 页面方向设置错误 vbCrLf 本行代码检测页面设置,wdOrientLandscape为横向，wdOrientPortrait为纵向 Else rightstring = rightstring 页面方向设置正确 vbCrLf End If .ActiveWindow.View.Type = wdPrintView .ActiveWindow.View.SeekView = wdSeekCurrentPageHeader 以上两行代码更改为页眉页脚视图 If .Sections(1).Headers(wdHeaderFooterPrimary).Range.Text 恐龙博物馆 vbCr Or .Sections(1).Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment wdAlignParagraphRight Then errstring = errstring 页眉设置错误 vbCrLf 本行代码检测页眉文字及对齐方式 Else rightstring = rightstring 页眉设置正确 vbCrLf End If .ActiveWindow.View.SeekView = wdSeekCurrentPageFooter If .Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text 剑龙 vbC