Word操作題自動閱卷程序

1、Word操作題自動閱卷程序【摘要】Word操作題是高中信息技術(shù)學(xué)測必考題，復(fù)習(xí)過程中我們一般以四、五個題型來完成對所有知識點的復(fù)習(xí)。但是平時復(fù)習(xí)、訓(xùn)練當(dāng)中教師閱卷工作量很大，且容易出錯。本文介紹了通過VB編程實現(xiàn)對Word操作題的自動化閱卷并由Excel完成分?jǐn)?shù)統(tǒng)計的實現(xiàn)過程。該程序的主要功能是：讓程序自動讀取學(xué)生提交的作品（Word文件），對文件中的相應(yīng)操作進(jìn)行評分并給出錯誤提示，將評分結(jié)果及錯誤提示自動記錄到Excel當(dāng)中，極大地方便了教師對學(xué)生Word作品的批閱?！娟P(guān)鍵詞】Word操作題 自動評分 VB編程 自動統(tǒng)計結(jié)果一、概述：（一）Word操作題是高中信息技術(shù)學(xué)測必考題，考察的面很廣

2、，主要有“字體、段落、表格、圖片、藝術(shù)字、頁眉頁腳、頁碼、頁面格式的設(shè)置、項目符號、分欄”等。平時訓(xùn)練當(dāng)中教師閱卷工作量很大，且容易出錯。筆者通過編程的方式，讓閱卷程序自動識別學(xué)生的相關(guān)操作，實現(xiàn)自動閱卷評分并給出錯誤提示，將結(jié)果記錄到Excel工作表中。（二）Word對象庫及基本對象操作：Word 作為當(dāng)今最常用的文字編輯應(yīng)用軟件, 它的相關(guān)操作是多樣而且復(fù)雜。通過VB 實現(xiàn)對Word編程的首要前提就是在Visual Basic 中引進(jìn)Word 對象庫。它的引入通過VB 編程環(huán)境中的工程引用“Microsoft Word 10.0 Object Library”來設(shè)置。引入Word 對象庫之

3、后, Microsoft Word 中的各個組成元素( 比如文檔、段落等) 就一一對應(yīng)于VisualBasic 支持并識別的各種Word 對象集合。例如, VB 中的Document 對象表示一個打開的文檔, Paragraphs 對象表示當(dāng)前文檔中的所有段落, Selection 對象則與當(dāng)前文檔中的當(dāng)前選定內(nèi)容對應(yīng)。以此, 依據(jù)考核題目的操作要求和操作結(jié)果, 在VB 中通過調(diào)用適當(dāng)Word 對象的屬性和方法就可完成對一個指定文檔的設(shè)置和判斷, 進(jìn)而實現(xiàn)對Word 操作的自動評分。程序開始統(tǒng)計文件總數(shù)Kik-1i=0程序結(jié)束打開第i個文件，根據(jù)評分標(biāo)準(zhǔn)評分將分?jǐn)?shù)及錯誤提示記錄到：Excel否

4、是二、程序運行流程圖：三、實例講解：下面通過一個實例來講解一下具體的實現(xiàn)過程：在Word操作的整個復(fù)習(xí)過程中我們大概通過四個練習(xí)來完成所有操作的復(fù)習(xí)，筆者就針對這四個練習(xí)編寫了相應(yīng)的閱卷程序。下面以其中的一個練習(xí)為例來講解一下具體的實現(xiàn)過程。（一）操作要求如下：請打開test1.doc，完成下列相關(guān)操作，完成后以自己的名字重命名并提交：1、設(shè)置標(biāo)題為楷體、三號字、居中放置。2、將文章每段首行縮進(jìn)2個字符，段前間距為0.5行。3、設(shè)置文章的頁眉為“獵狗的命運”，左對齊放置。4、在頁腳處插入頁碼 = 1 * ROMAN I、 = 2 * ROMAN II、 = 3 * ROMAN III，對齊方式

5、為左側(cè)。5、文章最后一段加-灰色15%底紋，應(yīng)用范圍為文字。6、刪除表格的1996年所在的行，設(shè)置表格第一行的底紋為“淺青色”。7、文章第二段插入圖片“獵狗.jpg”，將圖片大小縮放為60%，版式設(shè)置為“四周型”。（二）核心代碼：On Error Resume Nextk = File1.ListCount 統(tǒng)計當(dāng)前目錄下Word的文件數(shù)量Set Wordapp = CreateObject(word.application) 創(chuàng)建Word文檔Set Xlapp = CreateObject(Excel.application) 創(chuàng)建Excel文檔Xlapp.Visible = True 設(shè)置

6、Excel文檔為可見Wordapp.Visible = True 設(shè)置Word文檔為可見Set Xlbook = Xlapp.Workbooks.Open(App.Path & 成績記錄表.xls) 打開“成績記錄表.xls”If Xlapp.Workbooks.Count 1 Then 如果“成績記錄表.xls”不存在則新建一個 Set Xlbook = Xlapp.Workbooks.Add (App.Path & 成績記錄表) ElseSet Xlbook = Xlapp.Workbooks.Open(App.Path & 成績記錄表.xls)End IfSet Xlsheet = Xl

7、book.Sheets(1) 在Sheet1中完成下列操作Xlsheet.Cells(1, 1) = 姓名 第一行第一個單元格輸入 姓名Xlsheet.Cells(1, 2) = 成績 第一行第二個單元格輸入 成績Xlsheet.Cells(1, 3) = 錯誤 第一行第二個單元格輸入 錯誤If k 1 Then GoTo ss 如果當(dāng)前文件夾中文件數(shù)小于1則退出程序For f = 0 To k 1 開始逐個判分Scor = 0 初始化總分為0Strmiss = 初始化錯誤提示為空strdoc = File1.List(f) 第f個文件的名稱Set Myword = Wordapp.Docum

8、ents.Open(App.Path & & strdoc) 打開該文件With Myword*第一題，判斷標(biāo)題的字體、字號及對齊方式If .Paragraphs(1).Range.Font.Name = 楷體_GB2312 Then Scor = Scor + 0.7 Else Strmiss = Strmiss & 標(biāo)題字體設(shè)置錯誤； If .Paragraphs(1).Range.Font.Size = 16 Then Scor = Scor + 0.7 Else Strmiss = Strmiss & 標(biāo)題字號設(shè)置錯誤； If .Paragraphs(1).Alignment = 1

9、Then Scor = Scor + 0.6 Else Strmiss = Strmiss & 標(biāo)題對齊方式設(shè)置錯誤； *第二題，判斷文章首行縮進(jìn)及段前間距0.5行k1 = 0k2 = 0For i = 2 To 7If .Paragraphs(i).SpaceBefore = 7.8 Then k1 = k1 + 1If Round(PointsToPicas(.Paragraphs(i).Format.FirstLineIndent) = 2 Then k2 = k2 + 1Next iIf k1 = 6 Then Scor = Scor + 1 Else Strmiss = Strmis

10、s & 段前間距設(shè)置錯誤； If k2 = 6 Then Scor = Scor + 1 Else Strmiss = Strmiss & 首行縮進(jìn)設(shè)置錯誤 ； *第三題，設(shè)置文章的頁眉If Left(.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text, 5) = 獵狗的命運 Then Scor = Scor + 1 Else Strmiss = Strmiss & 頁眉文字設(shè)置錯誤； If .Sections(1).Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignme

11、nt = 3 Then Scor = Scor + 1 Else Strmiss = Strmiss & 頁眉對齊方式設(shè)置錯誤； *第四題，設(shè)置文章的頁碼If .Sections(1).Footers.Item(wdHeaderFooterPrimary).PageNumbers.NumberStyle = 1 Then Scor = Scor + 1 Else Strmiss = Strmiss & 頁腳樣式設(shè)置錯誤； If .Sections(1).Footers.Item(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = 0

12、 Then Scor = Scor + 1 Else Strmiss = Strmiss & 頁腳對齊方式設(shè)置錯誤； *第五題，判斷文字底紋If .Paragraphs(7).Range.Font.Shading.BackgroundPatternColor = 14277081 Then Scor = Scor + 2 Else Strmiss = Strmiss & 文字底紋設(shè)置錯誤； *第六題，判斷表格底紋、刪除一行If .Tables(1).Rows(1).Range.Shading.BackgroundPatternColor = 16777164 Then Scor = Scor

13、+ 1 Else Strmiss = Strmiss & 表格底紋設(shè)置錯誤； If .Tables(1).Rows.Count = 4 And Left(.Tables(1).Range.Cells(16).Range.Text, 4) 1996 Then Scor = Scor + 1 Else Strmiss = Strmiss & 表格刪除操作錯誤； *第七題，判斷圖片If .Shapes.Count = 1 Then Scor = Scor + 1 Else Strmiss = Strmiss & 圖片插入錯誤； Pic_w = Round(PointsToCentimeters(.S

14、hapes(1).Width), 2)Pic_h = Round(PointsToCentimeters(.Shapes(1).Height), 2)If Pic_w = 2.12 And Pic_h = 4.74 Then Scor = Scor + 1 Else Strmiss = Strmiss & 圖片大小設(shè)置錯誤； Label1.Caption = PointsToPicas(.Paragraphs(3).Format.FirstLineIndent)End With*統(tǒng)計相關(guān)信息到Excel文件中Xlsheet.Cells(f + 2, 1) = Left(strdoc, Len(

15、strdoc) - 4) Word文件去掉擴(kuò)展名后寫到“姓名”一列Xlsheet.Cells(f + 2, 2) = Scor 總成績寫到“成績”一列Xlsheet.Cells(f + 2, 3) = Strmiss 錯誤提示寫到“錯誤”一列Myword.Close False 關(guān)閉當(dāng)前Word文件Next fss: Wordapp.Quit False 關(guān)閉整個Word文檔（三）其它相關(guān)說明：1、在開始編程之前需要通過“工程-引用”來添加“Microsoft word 11.0 Object Library”和“Microsoft excel 11.0 Object Library”2、放置一個“FileListBox控件”，在窗體調(diào)用事件中寫入代碼：File1.Pattern = *.doc，用于搜集當(dāng)前文件夾中的Word文件。三、下面是該程序?qū)λ奈煌瑢W(xué)作品的判分情況的截圖：首先，將閱卷程序和待閱文件放在同一個目錄，可以提前在該目錄建立一個“成績記錄表.xls”其次，啟動判分程序：最后，得到批閱結(jié)果：本程序在Windows XP系統(tǒng)，Office2003下測試通過，參考文獻(xiàn)：1、王讀祥 Word操作題自動