徐強(qiáng)珍，劉昌華，朱曉磊

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

PowerPoint2010操作自動(dòng)評(píng)判技術(shù)分析

徐強(qiáng)珍，劉昌華，朱曉磊

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

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

PowerPoint屬性；對(duì)象庫；自動(dòng)評(píng)判

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

1　PowerPoint對(duì)象庫及基本對(duì)象操作

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

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

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宏錄制支持。盡管能夠啟動(dòng)早期的宏錄制功能，但是其錄制能力還停留在早期的2003版本代碼，而且有相當(dāng)一部分代碼已經(jīng)無法使用。因此，這部分的絕大部分評(píng)判代碼需要開發(fā)人員借助于手動(dòng)分析PowerPoint對(duì)象瀏覽器代碼（以及PowerPoint 2010 Developer Reference）實(shí)現(xiàn)。PowerPoint對(duì)象庫中基本對(duì)象的屬性值直接反映出對(duì)象的特征或狀態(tài)。通過提取屬性值可以將對(duì)象當(dāng)前狀態(tài)與操作要求達(dá)到的狀態(tài)進(jìn)行比對(duì)，從而判斷出之前所做的操作是否符合操作要求。但PowerPoint對(duì)象庫中的基本屬性和方法的類型繁多，使用方法比較復(fù)雜，通過手動(dòng)編寫或查找提取對(duì)象屬性和方法，對(duì)于一般的程序編寫者是有一定困難的。

3　評(píng)判功能的實(shí)現(xiàn)

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

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

其主要代碼如下：

'聲明變量

Dim oppt As New PowerPoint.Application'定義PowerPoint實(shí)例。

Dim s()As String

Dim iLower As Integer

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

Dim i As Integer

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

oppt.Visible=True'賦值

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

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

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

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

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

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

ReDim Preserve s(iLower)

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

iLower=iLower+1

End If

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

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

ReDim Preserve s(iLower)

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

iLower=iLower+1

End If

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

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

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

ReDim Preserve s(iLower)

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

iLower=iLower+1

End If

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

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

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

ReDim Preserve s(iLower)

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

4　結(jié)語

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

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

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

［3］劉中宇，黃福君.PowerPoint操作測試自動(dòng)評(píng)價(jià)技術(shù)研究［J］.計(jì)算機(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

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