蔣玲玲

（武漢船舶職業(yè)技術(shù)學(xué)院公共課部，湖北武漢 430050）

隨著科學(xué)技術(shù)的迅猛發(fā)展，人們的生活、工作、學(xué)習(xí)等各種社會領(lǐng)域，都離不開計算機。因此，為了培養(yǎng)能夠熟練的使用計算機且能夠?qū)⒂嬎銠C與本職工作相結(jié)合的復(fù)合型人才，各高職院校都將《計算機應(yīng)用基礎(chǔ)》這門課作為非計算機專業(yè)學(xué)生的掌握計算機基礎(chǔ)知識和操作技能的一門必修課程。該課程的內(nèi)容主要包含計算機基礎(chǔ)知識，Windows系統(tǒng)的基本操作以及Office辦公軟件的使用。在筆者所在院校，通過全國計算機信息高新技術(shù)考試考核學(xué)生的學(xué)習(xí)情況，由于該等級考試沒有通用的模擬系統(tǒng)，學(xué)生的日常練習(xí)受到限制，因此筆者使用VB（Visual Basic）開發(fā)了一套模擬系統(tǒng)，以供學(xué)生日常的練習(xí)，在開發(fā)中，遇到了很多有關(guān)Office檢測的問題，本文就針對檢測word文檔中的藝術(shù)字的檢測問題進行分析討論。

1 基于VB的office應(yīng)用程序開發(fā)介紹

VB是開發(fā)程序中最為簡單易學(xué)的一種程序設(shè)計語言，該語言功能強大，易于學(xué)習(xí)掌握，尤其是基于微軟提供的ActiveX技術(shù)，該技術(shù)由微軟的Office應(yīng)用程序進行支持，給出了對 Word、Excel等Office應(yīng)用程序進行操作的內(nèi)置功能的方法，能夠直接對word、excel等office文檔進行操作，如進行拼寫檢查，對文檔中的內(nèi)容進行檢測操作等。

2 VB中的Word對象模型

VB中的Word對象模型代表一個 Word元素，可以是一個文檔、一個段落或者是一個單一的字符。在使用VB對Word進行調(diào)用之前，需要引進Word對象庫，之后才能夠以 Word為對象編程。引進Word對象庫的方法是：在編程環(huán)境下，選擇“工程”菜單，選中“引用”項，打開“引用”對話框，在“可用的引用”列表中選中“Microsoft Wordl1.0Object Library”，即可在 Word中引進對象庫。在本文中主要用到以下幾個對象。

（1）Application對象（Word應(yīng)用程序的總對象）。

用戶在啟動一個Word對象的時候，Application對象也同時被創(chuàng)建。通過Application對象的屬性，用戶能夠調(diào)整 Word對象模型的一些特性。

（2）Doctuments對象（文檔集對象）。

通過對Documents對象的使用，用戶能夠返回一個打開的Office文檔。打開方式如以下示例。

Set mWord＝ Documents（"XXX.doc"）

在該示例中，通過語法Documents（FileName）得到一個返回的對象，F(xiàn)ileName可以是打開的文檔名稱，也可以是一個索引號，在上面的示例中，變量mWord包含了一個Document對象，這個對象可以代表一個已經(jīng)被打開的名稱為XXX.doc的 Word文檔。

（3）Selection對象（選中區(qū)域?qū)ο螅?/p>

在用戶對Word文檔進行操作時，一般會先選中一段文字，然后執(zhí)行某一操作，比如將選中文字設(shè)置為藝術(shù)字，或者是設(shè)置選中文字的格式。在VB中，不需要在對文字編輯之前選中待編輯文字，而是通過創(chuàng)建一個能夠代表文檔特定部分的Range對象，然后對該對象進行各種編輯操作。但是這樣不能對用戶想要選定的部分進行操作，這個時候，可以通過Selection對象來完成該操作。在文檔窗口的每個窗格中只能有一個Selection對象，在任何時刻，也只能有一個活動的Selection對象。選定內(nèi)容可以包含文檔的一塊區(qū)域，也可以被折疊到一個插入點。以下是一個Selcetion對象示例。？

Selection.TypeText（Text：＝ "你好！"）？

在該示例中，通過Selection對象，在光標(biāo)處插入了“你好！”三個字符。

（4）InlineShape對象。

該對象代表文檔的文字層中的對象，該對象被看做字符，可以像字符一樣放在一行文本當(dāng)中。InlineShape？對象是？InlineShapes？集合中的一個成員。InlineShapes？集合包含文檔、區(qū)域或選定內(nèi)容中的所有嵌入式圖形，通過使用？InlineShapes？（index）方法可以得到一個Inline－Shape？對象返回值。

（5）Shape控件。

在Word或者Excel中，都能夠通過插入Shapes控件，來滿足用戶對各種界面進行繪圖的操作需求。每個圖形的大小都可以改變，或者對圖形進行旋轉(zhuǎn)。當(dāng)圖形被選中時，圖形會有一個重置大小的句柄，您可以使用它來進行大小的調(diào)節(jié)，以此同時還有一個角度句柄，可以用來調(diào)節(jié)圖形的角度、顏色、陰影、透明度等。

3 使用VB對WORD文檔中的藝術(shù)字檢測實例

（1）首先在程序中聲明一個Shape對象變量，通過該對象可以檢測藝術(shù)字的字體、字號、環(huán)繞方式等。然后聲明 Word對象變量，將MWapp變量設(shè)置為 Word.application對象，VB可通過Word對象庫對Word.application進行定義。

Dim Mshape As Shape

Dim MWapp As Word.application

Set MWapp＝ CreateObject（"Word.Application"）

（2）打開word文檔對象，在本文案例中，通過Documents引用打開Word文檔。

wrdApp.Documents.Open FileName

FileName表示打開的word文檔的路徑以及word文檔的名稱。

（3）通過For Each In語句對打開的Word文檔進行遍歷，判斷word文檔中是否存在藝術(shù)字。

For Each shp In wrdApp.Documents（FileName）.Shapes

If shp.Type＝ msoTextEffect Then

End If

Next

在上面的示例中通過對Word文檔對象的Shapes子對象進行遍歷，對Word文檔中的文字進行檢測，如果遍歷到的文字的Type屬性為藝術(shù)字，就繼續(xù)進行下一步的判斷，在代碼中mso－TextEffect屬性表示該文字為藝術(shù)字。

（4）判斷該藝術(shù)字是否符合題目要求。

If shp.TextEffect.Text＝"XXXX"Then

If shp.TextEffect.FontSize＝ 40＃ Then…

If shp.TextEffect.FontName ＝ "隸書"Then…

If shp.TextEffect.PresetShape ＝ mso－TextEffectShapeWave2

End If

在上面的示例中首先通過TextEffect.Text屬性判斷設(shè)置的藝術(shù)字的文字內(nèi)容是否與題目相符合，如果與題目要求符合，繼續(xù)向下檢測，在本文案例中，通過TextEffect的FontSize屬性、FontName屬性 和PresetShape屬性檢測了藝術(shù)字的字號、字體和藝術(shù)字的形狀。

4 結(jié) 語

本文介紹了在VB平臺下，基于ActiveX技術(shù)，通過調(diào)用Word應(yīng)用程序提供的對象，實現(xiàn)了對Word中藝術(shù)字的檢測，并給出了具體實現(xiàn)方案。在本文中，筆者只是僅僅給出了一個簡單的使用VB對word文檔進行操作的案例，并沒有針對基于VB對office文檔的應(yīng)用進行介紹。事實上ActiveX技術(shù)還有許多其他強大的功能，因為篇幅有限，不能全部介紹。

1 岐艷芳.VB創(chuàng)建Word格式化文檔［J］.蘭州工業(yè)高等?？茖W(xué)校學(xué)報，2006.

2 蘇瑞，韓中孝.Visual Basic開發(fā)實用編程200例［M］.北京：中國鐵道出版社，2006.

3 張德強，李云嶺，易向東，等.Visual Basic案例開發(fā)［M］.北京：中國水利水電出版社，2005.

4 趙欣勝，亢惠娟，劉晨宏，等.Visual Basic經(jīng)典范例50講［M］.北京：科學(xué)出版社，2004

5 隋麗娜.Visual Basic范例開發(fā)大全［M］.清華大學(xué)出版社，2010.