[分享成果，順熙正能量]可以禮貌地對(duì)待，但不要“看起來好欺負(fù)的樣子”。不拒絕的幫助、卑躬屈膝的姿態(tài)、沒有底線的下跪，都將使你的生活成為雞毛。事后不補(bǔ)刀。不要說“一開始聽了我的話”、“我說過了”等挖苦話。說得痛快，但毫無疑問，在當(dāng)事人傷口上撒鹽、安慰他或給予幫助。

《VBA之Word應(yīng)用》，我推出的第八個(gè)教程，教程專門講解VBA在Word中的應(yīng)用，以“面向?qū)ο缶幊獭睘橹行?，首先在Word中了解VBA的對(duì)象和對(duì)象的屬性、方法，然后通過例子感受Word VBA的妙處，本教程共3卷16章，今天的內(nèi)容為5

節(jié)v Range對(duì)象屬性(4)

你好，我將繼續(xù)解釋Range對(duì)象屬性。因?yàn)榕c對(duì)象的屬性、方法相關(guān)的內(nèi)容很多，所以我想介紹更多教程中常用的應(yīng)用程序。(大衛(wèi)亞設(shè))。

1 Range。Font屬性

此屬性返回或設(shè)置表示指定對(duì)象的字符格式的Font對(duì)象。Font類型，可讀寫。

語法：ex

其中expression是表示Range對(duì)象的變量。

2 Range。Italic屬性

如果將此屬性設(shè)置為TRUE，則字體或區(qū)域的格式設(shè)置為傾斜格式。

語法：ex

其中expression是表示Range對(duì)象的變量

此屬性將返回true、false或wdUndefined (true和false的組合)，可以設(shè)置為true、False或wdToggle。3 Range。HighlightColorIndex屬性

此屬性返回或設(shè)置指定區(qū)域的高亮顏色。

語法：expression。HighlightColorIndex

其中expression是表示Range對(duì)象的變量。

4示例：設(shè)置范圍字體和顏色

通過以下示例，我將演示本節(jié)中屬性的應(yīng)用。在這種情況下，首先設(shè)置Range的對(duì)象變量，然后將該對(duì)象變量的字體設(shè)置為“中文楷體”，在粗體和斜體以及最后在段落之間循環(huán)。雙數(shù)顯示為黃色。(威廉莎士比亞，Northern Exposure(美國電視劇)，Northern Exposure(美國電視劇))，我們先來看看下面的代碼。

Sub mynzD()

[請(qǐng)參閱代碼教程]

End Sub

代碼屏幕截圖：

代碼解釋：

1) Set myRange=Ac(4)。Range上面的代碼將myRange對(duì)象變量設(shè)置為當(dāng)前活動(dòng)文檔的第四段。

2) If myRange。Font.Name='中文楷書' Then

MyRange。Font.Name='等值線(中文文本)'

Else

MyRange。Font.Name='中文楷書'

End If

以上代碼判斷myRange的字體，如果是“中文楷體”，則設(shè)置為“等線(中文正文)”，其他情況下設(shè)置為“中文楷體”。

3)myRange。Bold=True

MyRange。Italic=True

上面的代碼將myRange范圍設(shè)置為粗體和斜體。

4)mypar . range . highlightcolorindex=wdnohighlight

上面的代碼先清除顏色設(shè)置。

5) For Each myPar In Ac

I=I 1

If I Mod 2=0 Then

mypar . range . highlightcolorindex=wdyellow

End If

next

上面的代碼將雙段設(shè)置為黃色。

代碼執(zhí)行效果：

今天的內(nèi)容返回：

1在Word中，Range對(duì)象的Font屬性、Italic屬性和HighlightColorIndex屬性的含義是什么？

2如何設(shè)置字體和顏色？

本課程內(nèi)容參考計(jì)劃文件：Doc 005文檔。docm

我有20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部集中在下一個(gè)教程中。

【分享成果，班熙正能量】其實(shí)根本沒有高冷的人，但是人家溫暖的不是你。(威廉莎士比亞，《哈姆雷特》)每個(gè)人對(duì)待別人的態(tài)度都不一樣。這是一種能力，不是偽善。沒有人能阻止足夠的誘惑和足夠的籌碼。