《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到WordVBA的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第5节：Word文档中字体及颜色的设置。
第五节Range对象的属性（四）
大家好，我们继续Range对象属性的讲解，由于对象的属性、方法涉及到的内容非常多，我力争在教程中多给大家介绍一些常用的应用。
1Range.Font属性
这个属性返回或设置一个Font对象,该对象代表指定对象的字符格式。Font类型，可读写。
语法：expression.Font
其中expression为一个表示Range对象的变量。
2Range.Italic属性
如果这个属性的设置为TRUE,则将字体或区域的格式设置为倾斜格式。
语法：expression.Italic
其中expression为一个表示Range对象的变量
3Range.HighlightColorIndex属性
这个属性返回或设置指定区域的突出显示颜色。
语法：expression.HighlightColorIndex
其中expression为一个表示Range对象的变量。
4实例：Range范围字体及颜色的设置
下面我们将通过一个实例来展现一下本节属性的应用，这个实例中先设置了一个Range的对象变量，然后将这个对象变量的字体设置为”华文楷体”,接着设置加粗及倾斜，最后在各个段落间进行循环，双数的显示为黄色。我们先看下面的代码：
SubmynzD()
【代码见教程】
EndSub
代码截图：
代码解读：
1）SetmyRange=ActiveDocument.Paragraphs(4).Range以上代码设置对象变量myRange为当前活动文档的第四段。
2）IfmyRange.Font.Name=”华文楷体”Then
myRange.Font.Name=”等线(中文正文)”
Else
myRange.Font.Name=”华文楷体”
EndIf
以上代码要判断一下myRange的字体，如果是”华文楷体”那么将设置为”等线(中文正文)”，其他情况则为”华文楷体”。
3）myRange.Bold=True
myRange.Italic=True
以上代码设置myRange范围为加粗及倾斜。
4）myPar.Range.HighlightColorIndex=wdNoHighlight
以上代码先清除一下颜色设置。
5）ForEachmyParInActiveDocument.Paragraphs
i=i+1
IfiMod2=0Then
myPar.Range.HighlightColorIndex=wdYellow
EndIf
Next
以上代码将双数段设置为黄色。
代码的运行效果：
