一、
前言

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

二、控制說明

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

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

<!--光標(biāo)選擇的字體-->

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

復(fù)制代碼

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

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

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

復(fù)制代碼

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

<!--文檔中第二個(gè)詞組的顏色-->

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

復(fù)制代碼

4）光標(biāo)所在段落的字體。

<!--光標(biāo)所在段落的字體-->

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

復(fù)制代碼

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

<!--文檔開頭字體設(shè)置 -->

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

復(fù)制代碼

6）設(shè)置所有字體樣式為Color的字體

<!--設(shè)置所有字體樣式為Color的字體-->

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

//字體變紅

復(fù)制代碼

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

(圖2-1:樣式Color)

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

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

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

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

三、文字屬性設(shè)置

1）設(shè)置文字的中文字體為“華文中宋”。

<!--設(shè)置一種東亞字體名稱-->

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

復(fù)制代碼

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

<!--設(shè)置使用的英文字體-->

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

復(fù)制代碼

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

<!--設(shè)置所有文字的字體-->

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

復(fù)制代碼

4）設(shè)置選中字體的大小為14。

<!--設(shè)置所有字體大小-->

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

復(fù)制代碼

5）設(shè)置選中的字體為粗體。

<!--粗體-->

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

復(fù)制代碼

6）設(shè)置選中的字體為斜體。

<!--斜體-->

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

復(fù)制代碼

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

<!--刪除線-->

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

復(fù)制代碼

圖解：

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

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

<!--雙刪除線-->

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

復(fù)制代碼

圖解：

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

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

<!--陰影-->

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

復(fù)制代碼

10）把選中的字體隱藏。

<!--隱藏文字-->

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

復(fù)制代碼

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

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

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

復(fù)制代碼

12）選中的字體設(shè)置為上標(biāo)。

<!--上標(biāo)-->

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

復(fù)制代碼

圖解：

(圖3-3:
選中的字體設(shè)置為上標(biāo))

13）選中的字體設(shè)置為下標(biāo)。

<!--下標(biāo)-->

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

復(fù)制代碼

圖解：

(圖3-3:
選中的字體設(shè)置為下標(biāo))

14）設(shè)置選中文字的字符間距。

<!--字符間距-->

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

復(fù)制代碼

15）設(shè)置選中文字的字符縮放。

<!--字符縮放-->

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

復(fù)制代碼

16）添加下劃線。

<!--下劃線-->

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

復(fù)制代碼

17）添加雙下劃線。

<!--雙下劃線-->

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

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

復(fù)制代碼

圖解：

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

18）選中字體添加文字效果，當(dāng)前為閃爍效果。

<!--設(shè)置文字閃動(dòng)的效果-->

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

復(fù)制代碼

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。