一、
前言

隨著金格iWebOffice系列中間件產品的廣泛應用，龐大的客戶實體帶來了豐富而復雜的應用需求，產品的更新速度也隨著這些需求不斷地加快。有些客戶不僅想的快速的閱讀文檔，還想快捷方便的設置文檔，其中文字設置最為常見，下面主要將介紹如何使用VBA實現(xiàn)控制這些字體。

二、控制說明

下面代碼中“WebOffice”是iWebOffice控件對象，“WebObject”是iWebOffice控件提供用于訪問VBA的對象。

1）光標選中的字體，字體變?yōu)榧t色。

<!--光標選擇的字體-->

WebOffice.WebObject.Application.Selection.Font.Color = 255;???? //字體變紅

復制代碼

2）書簽中的字體，字體變?yōu)榧t色。

<!--書簽中的字體-->

WebOffice.WebObject.Bookmarks("Caption").Range.Font.Color = 255;?? //字體變紅

復制代碼

3）文檔中第二個詞組的顏色變?yōu)榧t色。

<!--文檔中第二個詞組的顏色-->

WebOffice.WebObject.Application.ActiveDocument.Words(2).Font.Color = 255;??//字體變紅

復制代碼

4）光標所在段落的字體。

<!--光標所在段落的字體-->

WebOffice.WebObject.Application.Selection.Paragraphs(1).Range.Font.Color = 255;??

復制代碼

5）文檔開頭字體中，3到第9的字體變?yōu)榧t色。

<!--文檔開頭字體設置 -->

WebOffice.WebObject.Application.ActiveDocument.Range(3,9).Font.Color = 255;

復制代碼

6）設置所有字體樣式為Color的字體

<!--設置所有字體樣式為Color的字體-->

WebOffice.WebObject.Application.ActiveDocument.Styles(“Color”).Font.Color = 255;

//字體變紅

復制代碼

圖解：A、在word工具欄“樣式”中設置一個新的樣式Color。

(圖2-1:樣式Color)

B、用改樣式標記文檔中的文字，選中樣式為Color，如圖所示

(圖2-2:樣式Color效果)

C、講所有樣式為Color字體變?yōu)榧t色

(圖2-2:樣式Color設置為紅色效果)

三、文字屬性設置

1）設置文字的中文字體為“華文中宋”。

<!--設置一種東亞字體名稱-->

WebOffice.WebObject.Application.Selection.Font.NameFarEast = "華文中宋";

復制代碼

2）設置選中的文字中所有英文字體為“Times New Roman”。

<!--設置使用的英文字體-->

WebOffice.WebObject.Application.Selection.Font.NameAscii = "Times New Roman";

復制代碼

3）設置所有選中的文字的字體（不區(qū)分中英文）為“宋體”。

<!--設置所有文字的字體-->

WebOffice.WebObject.Application.Selection.Font.Name = "宋體";

復制代碼

4）設置選中字體的大小為14。

<!--設置所有字體大小-->

WebOffice.WebObject.Application.Selection.Font.Size =14;

復制代碼

5）設置選中的字體為粗體。

<!--粗體-->

WebOffice.WebObject.Application.Selection.Font.Bold = 1;

復制代碼

6）設置選中的字體為斜體。

<!--斜體-->

WebOffice.WebObject.Application.Selection.Font.Italic = 1;

復制代碼

7）為選中的字體添加刪除線。

<!--刪除線-->

WebOffice.WebObject.Application.Selection.Font.StrikeThrough = 1;

復制代碼

圖解：

(圖3-1:刪除線效果)

8）為選中的字體添加雙刪除線。

<!--雙刪除線-->

WebOffice.WebObject.Application.Selection.Font.DoubleStrikeThrough =1;

復制代碼

圖解：

(圖3-2:雙刪除線效果)

9）選中的文字添加陰影。

<!--陰影-->

WebOffice.WebObject.Application.Selection.Font.Shadow??=1;

復制代碼

10）把選中的字體隱藏。

<!--隱藏文字-->

WebOffice.WebObject.Application.Selection.Font.Hidden??=1;

復制代碼

11）選中的文字中全部英文字體設置為大寫字母。

<!--全部大寫字母-->

WebOffice.WebObject.Application.Selection.Font.AllCaps = 1;

復制代碼

12）選中的字體設置為上標。

<!--上標-->

WebOffice.WebObject.Application.Selection.Font.Superscript??= 1;

復制代碼

圖解：

(圖3-3:
選中的字體設置為上標)

13）選中的字體設置為下標。

<!--下標-->

WebOffice.WebObject.Application.Selection.Font.Subscript = 1;

復制代碼

圖解：

(圖3-3:
選中的字體設置為下標)

14）設置選中文字的字符間距。

<!--字符間距-->

WebOffice.WebObject.Application.Selection.Font.Spacing??= 10;

復制代碼

15）設置選中文字的字符縮放。

<!--字符縮放-->

WebOffice.WebObject.Application.Selection.Font.Scaling = 1;????????????????????????//數(shù)字表示距離

復制代碼

16）添加下劃線。

<!--下劃線-->

WebOffice.WebObject.Application.Selection.Font.Underline = 1;

復制代碼

17）添加雙下劃線。

<!--雙下劃線-->

WebOffice.WebObject.Application.Selection.Font.Underline = 3;????????????????//下劃線的條數(shù)

WebOffice.WebObject.Application.Selection.Font.UnderlineColor = 255;????????//下劃線顏色

復制代碼

圖解：

(圖3-4:
添加雙下劃線)

18）選中字體添加文字效果，當前為閃爍效果。

<!--設置文字閃動的效果-->

WebOffice.WebObject.Application.Selection.Font.Animation = 2;

復制代碼

總結

以上是生活随笔為你收集整理的iWebOffice使用VBA控制字体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。