例谈VB批改操作题的实现.docVIP

例谈VB批改操作题的实现 ????score3= score3 + 0.9 　　End If 　　myDoc3.Close 　　SetmyDoc3 = Nothing 　　Setappwd = Nothing 　　Print 三、段落格式(8分)：, score3; 分 　　四、页面设置（7分） 　　⑴页面纸张大小设为A5（21厘米宽×14.8厘米高），纸张方向为横向，页边距上下均为2.5厘米、左右均为2.0厘米，并在左边预留0.8厘米的装订线位置。 　　Dim myDoc4 As Object 　　Set appwd = CreateObject(Word.Application) 　　Set myDoc4 = appwd.Documents.Open(App.Path \9000060030220028\段落B.doc) 　　 If myDoc4.PageSetup.TopMargin= 70.9 Then 　　score4 = score4 + 0.2 页边距上 2.5cm=70.9磅 　　 End If 　　If myDoc4.PageSetup.BottomMargin = 70.9 Then 　　score4 = score4 + 0.2 页边距下 2.5cm=70.9磅 　　End If 　　If myDoc4.PageSetup.LeftMargin = 56.7 Then 　　score4 = score4 + 0.2 左页边距 2.0cm=56.7磅 　　End If 　　If myDoc4.PageSetup.RightMargin = 56.7 Then 　　score4 = score4 + 0.2 右页边距 2.0cm=56.7磅 　　End If 　　 IfmyDoc4.PageSetup.Gutter = 22.7 Then 　　score4 = score4 + 0.4 左边预留0.8厘米的装订线位，0.8cm=22.7磅 　　End If 　　 IfmyDoc4.PageSetup.PageWidth = 595.35 Then 　　 score4= score4 + 0.2 A5（宽21cm=595.35磅） 　　 End If 　　If myDoc4.PageSetup.PageHeight = 419.6 Then 　　score4 = score4 + 0.2 A5（高14.8cm=419.6磅） 　　End If 　　⑵标题文字为幼圆、三号字、加粗，加着重号，居中。 　　 …… 　　 IfmyDoc4.Paragraphs(1).Range.Text.Font.Bold = wdToggle Then 　　score4 = score4 + 0.4 加粗 　　 EndIf 　　⑶将考试文件夹中的Tpe.TXT文件内容插入到本文档中，并调整各段落位置，使文档的段落编号由a到e排列； 　　 Dim ye41 AsString记录段落1至6内容 　　 …… 　　 Dim ye46 AsString 　　IfmyDoc4.Paragraphs.Count 3 Then 原文档有3个段落，若插入了新文档，则往下判断 　　ye41 = myDoc4.Paragraphs(1).Range.Text 　　…… 　　ye46 = myDoc4.Paragraphs(6).Range.Text 　　 IfLeft(ye41, 10) = 苹果电脑专卖店的特色 Then 　　score4 = score4 + 0.3 文字内容 　　End If 　　判断各段落首行第1个字母是否依次为a、b、c、d、e，从而确定段落排序正确性 　　IfLeft(ye42, 1) = a Then 　　 score4= score4 + 0.3 　　End If 　　…… 　　If Left(ye46, 1) = e Then 　　score4 = score4 +0.3 　　End If 　　End If 　　⑷在页面底端居中位置插入页码，起始页码为e，设置页眉，居中，内容为：苹果电脑。 　　Dim ye444 As String 　　If myDoc4.Sections(1).Headers(1).PageNumbers.StartingNumber = 5 Then 　　score4 = score4 + 0.6 页码 　　End If 　　 If myDoc4.Sections(1).Footers(1).PageNumberAlignment= wdAlignPageNumberCenter Then 　　score4 = score4 + 0.5 居中 　　 EndIf 　　 ye444= myDoc4.