基于VB的Word文檔檢測

蔣玲玲

（武漢船舶職業技術學院公共課部，湖北武漢 430050）

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

1 基于VB的office應用程序開發介紹

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

2 VB中的Word對象模型

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

（1）Application對象（Word應用程序的總對象）。

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

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

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

Set mWord＝ Documents（"XXX.doc"）

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

（3）Selection對象（選中區域對象）。

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

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

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

（4）InlineShape對象。

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

（5）Shape控件。

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

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

（1）首先在程序中聲明一個Shape對象變量，通過該對象可以檢測藝術字的字體、字號、環繞方式等。然后聲明 Word對象變量，將MWapp變量設置為 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文檔中是否存在藝術字。

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

If shp.Type＝ msoTextEffect Then

End If

Next

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

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

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屬性判斷設置的藝術字的文字內容是否與題目相符合，如果與題目要求符合，繼續向下檢測，在本文案例中，通過TextEffect的FontSize屬性、FontName屬性 和PresetShape屬性檢測了藝術字的字號、字體和藝術字的形狀。

4 結 語

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

1 岐艷芳.VB創建Word格式化文檔［J］.蘭州工業高等專科學校學報，2006.

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

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

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

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