徐強珍，劉昌華，朱曉磊

（山東畜牧獸醫(yī)職業(yè)學(xué)院，山東濰坊261061）

PowerPoint2010操作自動評判技術(shù)分析

徐強珍，劉昌華，朱曉磊

（山東畜牧獸醫(yī)職業(yè)學(xué)院，山東濰坊261061）

本文利用VB6.0對PowerPoint2010操作進行自動評判分析。在研究PowerPoint對象庫和基本對象操作的基礎(chǔ)上，結(jié)合高職“計算機應(yīng)用基礎(chǔ)”課程對PowerPoint 2010部分的教學(xué)目標(biāo)和要求提出必須掌握的知識點，找準PowerPoint中宏錄制中存在的問題及解決方案。利用VBA對PowerPoint對象和屬性進行分析，然后用VB6.0實現(xiàn)對PowerPoint對象操作結(jié)果的自動評判，并給出一些相關(guān)的代碼，以實現(xiàn)其評判功能。

PowerPoint屬性；對象庫；自動評判

PowerPoint是Microsoft Office辦公套裝軟件的成員之一，是一個專門為制作演示文稿設(shè)計的軟件。它憑借其強大的功能，易學(xué)易用，已被廣泛應(yīng)用于社會生活中的各個領(lǐng)域，如學(xué)術(shù)交流、產(chǎn)品演示和自我介紹，等等，而PowerPoint 2010在其以前版本的基礎(chǔ)上做了較大的改進，使其功能更強大了。而在計算機應(yīng)用基礎(chǔ)教學(xué)中，PowerPoint 2010軟件的熟練使用是學(xué)生必須要掌握的一種技能。在Microsoft PowerPoint 2010學(xué)習(xí)和測試中，一般都是上機操作，為了讓學(xué)生及時了解操作的準確性，對練習(xí)/測試系統(tǒng)進行自動評判是十分必要的，這樣可以減輕教師的輔導(dǎo)和閱卷工作量，也增加了評卷的客觀準確性，避免了評卷過程中的主觀因素。但現(xiàn)在大多是PowerPoint 2003的研究（以前也設(shè)計過針對PowerPoint 2003的自動評判系統(tǒng)），下面就如何實現(xiàn)對PowerPoint 2010上機操作結(jié)果的自動分析和評判進行設(shè)計探討。實現(xiàn)PowerPoint 2010上機操作的自動評判，可以先對其基本操作歸納總結(jié)，如有插入幻燈片、修改對象的格式、修改版式和背景、定義動畫、幻燈片切換和設(shè)置放映類型等操作內(nèi)容；再利用VBA對PowerPoint對象進行分析，然后利用Microsoft Visual Basic 6.0(簡稱VB6.0）來實現(xiàn)對PowerPoint對象操作結(jié)果的自動評判。

1　PowerPoint對象庫及基本對象操作

PowerPoint 2010比以前版本改進了很多，是Microsoft Office 2010辦公套裝軟件中改動最大的軟件，它的相關(guān)操作多樣化，功能更強大，通過VB6.0對PowerPoint 2010編程的前提是在VB6.0中能引進PowerPoint對象庫。它的引入可以通過VB6.0編程環(huán)境中的工程引用“Microsoft PowerPoint 14.0 Object Library”來設(shè)置。

引入PowerPoint對象庫之后，Microsoft PowerPoint 2010中的各個組成元素（如演示文稿、幻燈片，等等）就一一對應(yīng)于VB6.0支持并識別的各種PowerPoint對象集合。例如，VB6.0中的Presentations對象表示演示文稿，Slides對象表示當(dāng)前演示文稿中的幻燈片，等等。因此，就可以根據(jù)操作要求和操作結(jié)果在VB6.0中通過調(diào)用適當(dāng)PowerPoint對象的屬性和方法，來完成對某一個指定的演示文稿的操作和判斷，從而實現(xiàn)對PowerPoint 2010操作的評判。

2　PowerPoint中宏錄制問題及解決方案

Office宏技術(shù)是測試系統(tǒng)開發(fā)的關(guān)鍵支持技術(shù)，這也是選擇VB6.0開發(fā)系統(tǒng)的直接原因（使用VBA宏錄制的代碼經(jīng)過簡單修改即可為VB6.0代碼所調(diào)用）。但是微軟公司從PowerPoint 2007開始已經(jīng)不再支持VBA宏錄制支持。盡管能夠啟動早期的宏錄制功能，但是其錄制能力還停留在早期的2003版本代碼，而且有相當(dāng)一部分代碼已經(jīng)無法使用。因此，這部分的絕大部分評判代碼需要開發(fā)人員借助于手動分析PowerPoint對象瀏覽器代碼（以及PowerPoint 2010 Developer Reference）實現(xiàn)。PowerPoint對象庫中基本對象的屬性值直接反映出對象的特征或狀態(tài)。通過提取屬性值可以將對象當(dāng)前狀態(tài)與操作要求達到的狀態(tài)進行比對，從而判斷出之前所做的操作是否符合操作要求。但PowerPoint對象庫中的基本屬性和方法的類型繁多，使用方法比較復(fù)雜，通過手動編寫或查找提取對象屬性和方法，對于一般的程序編寫者是有一定困難的。

3　評判功能的實現(xiàn)

對PowerPoint 2010操作評判是最重要的一部分，實現(xiàn)的難度也較大。對PowerPoint 2010操作評判采用的是結(jié)果比對的方法，即不考慮學(xué)生的操作過程，僅判斷操作后的演示文稿中操作要求所涉及的PowerPoint對象的結(jié)果狀態(tài)是否與操作要求一致，從而對操作結(jié)果進行評分。其中最關(guān)鍵的是對打開相應(yīng)的演示文稿、對操作要求有關(guān)的PowerPoint對象屬性和方法進行提取、整理和轉(zhuǎn)換。

進行評分時，首先要在VB6.0中打開指定的演示文稿，只有處于活動狀態(tài)的演示文稿才可以被調(diào)用編程。演示文稿的打開主要通過先定義PowerPoint. Application，并創(chuàng)建PowerPoint實例，再調(diào)用Open方法來實現(xiàn)。

其主要代碼如下：

'聲明變量

Dim oppt As New PowerPoint.Application'定義PowerPoint實例。

Dim s()As String

Dim iLower As Integer

iLower=1'賦值，不使用0下標(biāo)，為的是與出錯信息號碼相一致，是s()的下標(biāo)。

Dim i As Integer

Set oppt=New PowerPoint.Application'創(chuàng)建PowerPoint實例。

oppt.Visible=True'賦值

oppt.Presentations.Open(App.Path&“dat“&”djks.ppt”)'打開當(dāng)前文件夾中dat子文件夾中的演示文稿djks.ppt文件。

操作要求：對應(yīng)的評判模塊主要是通過條件性語句來實現(xiàn)對演示文稿中相關(guān)對象的屬性與操作要求逐一進行比較，如果比較結(jié)果一致就可得分，否則不得分并顯示錯誤。評分完畢后，顯示成績與錯誤提示；也可同時將得出的分數(shù)寫入一個數(shù)據(jù)庫中。

對某一演示文稿的第一張幻燈片進行操作的主要代碼如下：

第一，將第一張幻燈片背景紋理設(shè)置為“水滴”

If oppt.ActivePresentation.Slides(1).Background.Fill. Type=4 Then

ippt=ippt+2'與正確答案比較屬性，若正確加2分，Else'若錯誤不加分且顯示錯誤。

ReDim Preserve s(iLower)

s(iLower)=“背景紋理設(shè)置錯誤(-2)”&vbCrLf

iLower=iLower+1

End If

第二，將第二張幻燈片的標(biāo)題文字設(shè)置動畫效果為“飛”If oppt.ActivePresentation.Slides(1).Shapes(1). AnimationSettings.EntryEffect=3332 Then

ippt=ippt+2'與正確答案比較屬性，若正確加2分，Else'若錯誤不加分且顯示錯誤。

ReDim Preserve s(iLower)

s(iLower)=“動畫設(shè)置錯誤(-2)”&vbCrLf

iLower=iLower+1

End If

第三，全部幻燈片的切換效果設(shè)置成“平移”、“單擊鼠標(biāo)時”換片。

Ifoppt.ActivePresentation.Slides(1).SlideShow Transition.EntryEffect=3931 Then

ippt=ippt+2'與正確答案比較屬性，若正確加2分，Else'若錯誤不加分且顯示錯誤。

ReDim Preserve s(iLower)

s(iLower)=“切換效果設(shè)置錯誤(-2)”&vbCrLf

iLower=iLower+1

End If

第四，將演示文稿的主題設(shè)置為“復(fù)合”。

If oppt.ActivePresentation.TemplateName=“復(fù)合”Then

ippt=ippt+2'與正確答案比較屬性，若正確加2分，Else'若錯誤不加分且顯示錯誤。

ReDim Preserve s(iLower)

s(iLower)=“主題設(shè)置錯誤(-2)”&vbCrLf iLower=iLower+1End If

4　結(jié)語

用編程的方法實現(xiàn)對PowerPoint 2010上機操作自動評分的功能，所用的計算機編程語言很多，這里只對利用VB6.0和VBA實現(xiàn)該功能的編程思路和步驟做簡單的闡述，對編寫無紙化測試系統(tǒng)提供一種借鑒的方法?；谥形拈_發(fā)的軟件模塊已于2014年下半年開始用于本學(xué)院非計算機專業(yè)學(xué)生的計算機應(yīng)用練習(xí)與測試，近一年的上課測試及用于兩學(xué)期的期末考試表明很方便實用。

［1］朱建國.PPT新視角VBA應(yīng)用技術(shù)［M］.北京:電子工業(yè)出版社，2013.

［2］明日科技.Visual Basic開發(fā)經(jīng)驗技巧寶典［M］.北京:人民郵電出版社，2007.

［3］劉中宇，黃福君.PowerPoint操作測試自動評價技術(shù)研究［J］.計算機技術(shù)與發(fā)展,2009,(2):237-239.

Technical Analysis of PowerPoint2010 Operation of Automatic Evaluation

XUQiang-zhen,LIUChang-hua,ZHUXiao-lei
(ShandongAnimal Husbandryand VeterinaryCollege,Weifang261061,China)

In this paper,VB6.0 automatic evaluation of PowerPoint2010 operations analysis was conducted.Based on the research PowerPoint Object Library and the basic operation of the object,combining vocational"Computer Application Foundation"teaching objectives and requirements of the proposed section PowerPoint 2010 must master knowledge,identify PowerPoint macro Recording Problems and Solutions Program.Using VBA for PowerPoint objects and attributes were analyzed,and then use VB6.0 automatic evaluation of PowerPoint objects operatingresults and give some relevant code,in order torealize its evaluation function.

PowerPoint Property;Object library;Automatic evaluation

G516

B

1674-8646（2015）09-0054-02

2015-06-19

徐強珍（1966-），女，山東人，講師，主要從事計算機教學(xué)與應(yīng)用工作。