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

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

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

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

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

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

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

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

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

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

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