用VBA實現(xiàn)Office操作題的自動閱卷資料

1、用VBA實現(xiàn)Office操作題的自動閱卷在目前的辦公自動化軟件中,MicrosoftOffice的應用已極為普遍,因此在高中信息技術會考中，Word、Excel已經成為必考內容。如果它們的操作題單純依靠人工閱卷，效率會非常低，而且容易出現(xiàn)誤判、漏判、給分不公正等問題。目前，信息技術會考軟件已經實現(xiàn)了Office操作題的自動閱卷功能，但任課教師如果想要在平時的教學中使用這些軟件，就必須花錢購買。為了解決這個問題,我認真研究了很多資料，使用Office軟件自帶的VBA宏指令編程，實現(xiàn)了操作題的自動閱卷功能。1 VBA的基本概念與實現(xiàn)原理VBA是指VisualBasicforApplication,

2、它是在Office中使用的宏語言,主要為了增強Word、Excel等軟件的自動化能力。VBA的語法類似VB,但提供了很多VB中沒有的函數和對象，這些函數、對象都是針對Office應用的。因此可以像編寫VB程序那樣來編寫VBA程序，以實現(xiàn)某個功能。2 VBA針對Word的主要對象VBA中帶有大量專門針對Office（包括WordExcelPowerPoint以及Access）文件的對象，限于篇幅問題,本文只介紹針對Word的VBA對象。在Word中我們能夠獲得的最高層對象是Application對象，它代表的是Word應用程序本身。在Application對象中包含了一些其他的對象集合,例如:D

3、ocument、windowsSelection等對象。documents對象集合和document對象都是Application對象的子對象。documents對象集合是所有的document對象的集合,document對象代表的是一篇完整的Word文檔,它包括了文檔中所有的對象如段落、文本、字、句、表格格式等。如果VBA代碼與考試題在同一個文檔中，建議大家使用ThisDocument對象，它代表當前文檔，這樣能夠省去打開文檔、保存文檔、關閉文檔等復雜操作。使用VBA通常需要完成的任務是在文檔中指定一個區(qū)域，然后對該區(qū)域進行一些操作，例如插入文字、應用格式等。文檔的這一部分就可以用Range

4、對象來代表。定義Range對象后，就可以應用Range對象的方法和屬性來修改這個區(qū)域的內容。對文檔應用格式主要包括字體格式、段落格式、表格等內容。通過使用Font對象可以設置文本的字體格式。Font對象包含了各種字體屬性(字體名稱、字體大小、顏色等)。Paragraphs對象包含了所選內容、范圍或文檔中的所有段落。Paragraph對象為Paragraphs集合的一個成員，代表選定內容、范圍或文檔內的一個段落?？捎肞aragraphs(index)返回一個Paragraph對象，其中index為索引號。Tables對象是由Table對象組成的集合,它代表選定內容、范圍或文檔中的所有表格。Tab

5、le對象是Tables集合的一個成員，代表一個單獨的表格。可使用Tables(index)返回一個Table對象，其中index為索引號。索引號代表選定內容、范圍或文檔中表格的位置。3 VBA評測Word操作題實例通過上面的內容，我們已經了解Word中常用的VBA對象，關于它們的屬性和方法大家可以看幫助。面，我們通過兩個實例學習VBA評測Word操作題的編程方法。例1字體格式的評測。題目要求：將第一自然段(明十三陵從1409年營建長陵到清順治元年營建思陵)的格式設置為：隸書、小四號、青色、加粗、傾斜。代碼如下：WithThisDocument.Paragraphs(1).Range.Font考

6、點1、對字體名稱進行評測If.Name=隸書ThenTextBoxl.Text=考點1字體名稱設置成功&vbCrLfElseTextBoxl.Text=考點1、字體名稱設置失敗&vbCrLfEndIf考點2、對字號大小進行評測If.Size=12ThenTextBoxl.Text=TextBoxl.Text&考點2、字體大小設置成功 & vbCrLfElseTextBoxl.Text=TextBoxl.Text&置失敗&vbCrLfEndIf考點3、對字體顏色進行評測If.Color=wdColorTealThenTextBoxl.Text=TextBoxl.Text&置成功&vbCrLfEl

7、seTextBoxl.Text=TextBoxl.Text&置失敗&vbCrLfEndIf考點4、對字體粗細進行評測If.Bold=TrueThenTextBoxl.Text=TextBoxl.Text&置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&置失敗&vbCrLf考點2、字體大小設考點3、字體顏色設考點3、字體顏色設考點4、字體粗細設考點4、字體粗細設EndIf考點5、對字體傾斜進行評測If-Italic=TrueThenTextBoxl.Text=TextBoxl.Text&考點5、字體傾斜設置成功&vbCrLfElseTextBoxl.Text=

8、TextBoxl.Text&考點5、字體傾斜設置失敗&vbCrLfEndIfEndWith需要說明的是，TextBoxl是我在Word文檔中添加的一個文本框控件的名稱，它的用途是把評測結果呈現(xiàn)給學生。例2段落格式的評測。題目要求：將第二自然段（十三陵是中國歷代帝王陵寢建鞏i二）的段落格式設置為：首行縮進4字符;段前間距1行，段后=f間距1行。代碼如下：WithThisDocument.Paragraphs（2）首行縮進4字符If-CharacterUnitFirstLineIndent=4ThenTextBoxl.Text=TextBoxl.Text&考點1、首行縮進4字符設置成功&vbCrL

9、fElse第近陟對單地視神&）xl.Tex工具欄”考焉空件工廉府進4字符設置失敗&vbCrLfEndIf段前間距一行If-SpaceBefore=15.6ThenTextBoxl.Text=TextBoxl.Text&行設置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&行設置失敗&vbCrLfEndIf斷后間距一行If,SpaceAfter=15.6ThenTextBoxl.Text=TextBoxl.Text&行設置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&行設置失敗&vbCrLfEndIfEndWith考點2、段前

10、間距考點2、段前間距考點3、段后間距考點3、段后間距使用Word控件實現(xiàn)閱卷功能第一將文檔恢復為排版前的狀態(tài)。步、第二步、單擊“視圖”工具欄”控件工具箱”命令.打開控件工具箱。第三步、單擊控件工具箱中的“命令按鈕”，在文檔末尾處插入一個命令按鈕。第四步、在命令按鈕上右擊，選擇“屬性”命令，打開屬性面板，并設置“Caption屬性為“交卷”。PrivateSubCommandButtonlClick()EndSub第六步、單擊控件工具箱中的“文本框”，在文檔末尾處插入一個文本框,默認名稱為Textboxl;第七步、在文本框上右擊.選擇“屬性”命令，打開屬性面板，并設置“MultiLine”屬性為“True”，允許文本框顯示多行文本。第八步、添加代碼