[分享成果，快乐正能量]对别人有礼貌，但不要一副“欺软怕硬”的样子。求助，卑躬屈膝，没完没了的跪求，会让你的生活一团糟。不要事后补刀。不要说“你一开始就听我的”“我早就告诉你了”之类的挖苦话。虽然说它们很酷，但无疑是在当事人的伤口上撒盐，要么安慰他，要么帮助他。

VBA在Word中应用是我推出的第八套教程。教程专门讲解VBA在Word中的应用，重点是“面向对象编程”。先让大家了解一下Word中VBA的对象，它的属性和方法，然后通过实例让大家感受一下Word VBA的美。本教程由三卷十六章组成。今天的内容是第五章“Word中的范围对象(第一部分)”和第五节:Word文档中的字体和颜色设置。

大家好，我们继续讲解Range对象的性质。因为对象的属性和方法涉及的内容比较多，所以在教程中我会尽量给大家介绍一些常见的应用。

该属性返回或设置一个Font对象，该对象代表指定对象的字符格式。字体类型，读/写。

语法:表达式。字体

其中expression是代表Range对象的变量。

如果该属性的设置为TRUE，则字体或区域的格式为倾斜格式。

语法:表达式。意大利语族的

其中expression是代表Range对象的变量。

该属性返回或设置指定区域的突出显示颜色。

语法:表达式。HighlightColorIndex

其中expression是代表Range对象的变量。

接下来，我们将通过一个示例展示这一部分的属性的应用。在这个例子中，我们首先设置一个Range的对象变量，然后将这个对象变量的字体设置为“中文楷体”，然后设置粗体和斜体，最后在段落之间循环，偶数用黄色显示。让我们先看看下面的代码:

Sub mynzD()

[代码见教程]

末端接头

代码截图:

代码解释:

1)设置my range = active document . paragraphs(4)。上面的代码将对象变量myrange设置为当前活动文档的第四段。

2)如果myRange。Font . Name = & # 34中国楷书& # 34；然后

我的兰芝。Font . Name = & # 34等距图(中文文本)& # 34；

其他

我的兰芝。Font . Name = & # 34中国楷书& # 34；

如果…就会结束

上面的代码要判断myRange的字体，如果是& # 34；中国楷书& # 34；然后将其设置为& # 34；等距图(中文文本)& # 34；，否则就是& # 34；中国楷书& # 34；。

3)myRange。粗体=真

我的兰芝。斜体=真

上面的代码将myRange的范围设置为加粗和倾斜。

4)myPar。range . highlight colorindex = wdNoHighlight

上面的代码首先清除颜色设置。

5)对于ActiveDocument中的每个myPar。段落

i = i + 1

如果我模2 = 0，那么

myPar。range . highlight colorindex = wd yellow

如果…就会结束

然后

上面的代码将偶数编号的段设置为黄色。

代码的运行效果:

今天的内容返回:

1 Word中Range对象的Font属性、Italic属性和HighlightColorIndex属性是什么？

2如何设置字体和颜色？

本次讲座参考程序文件:Doc 005 document.docm

我20多年的VBA实践经验集中在以下教程中:

[分享成果，快乐正能量]其实根本不存在冷酷的人，只是温暖的不是你。每个人对不同的人有不同的态度。这是一种能力，不是虚伪。没有人能抵挡足够的诱惑和足够的筹码。