《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章，今日内容为VBA之Word应用第五章第五节 Range对象的属性（四）
【分享成果，随喜正能量】人要看得见智慧，心智里才能生长出智慧。当人不再把自己视为“属于自己”，就可以看见更多的人间大美。
第五章第五节 Range对象的属性（四）
大家好，我们继续Range对象属性的讲解，由于对象的属性、方法涉及到的内容非常多，我力争在教程中多给大家介绍一些常用的应用。
1 Range.Font 属性
这个属性返回或设置一个Font对象, 该对象代表指定对象的字符格式。Font 类型，可读写。
语法：expression.Font
其中expression 为一个表示 Range 对象的变量。
2 Range.Italic 属性
如果这个属性的设置为TRUE,则将字体或区域的格式设置为倾斜格式。
语法：expression.Italic
其中expression 为一个表示 Range 对象的变量
此属性返回true、 false或wdUndefined ( true和False的组合), 并可设置为true、 false或wdToggle。
3 Range.HighlightColorIndex属性
这个属性返回或设置指定区域的突出显示颜色。
语法：expression. HighlightColorIndex
其中expression 为一个表示 Range 对象的变量。
4 实例：Range范围字体及颜色的设置
下面我们将通过一个实例来展现一下本节属性的应用，这个实例中先设置了一个Range的对象变量，然后将这个对象变量的字体设置为”华文楷体”,接着设置加粗及倾斜，最后在各个段落间进行循环，双数的显示为黄色。我们先看下面的代码：
Sub mynzD()
Set myRange = ActiveDocument.Paragraphs(4).Range
If myRange.Font.Name = "华文楷体" Then
myRange.Font.Name = "等线 (中文正文)"
Else
myRange.Font.Name = "华文楷体"
End If
myRange.Bold = True
myRange.Italic = True
i = 0
For Each myPar In ActiveDocument.Paragraphs
myPar.Range.HighlightColorIndex = wdNoHighlight
i = i + 1
If i Mod 2 = 0 Then
myPar.Range.HighlightColorIndex = wdYellow
End If
Next
End Sub
代码截图：
代码解读：
1） Set myRange = ActiveDocument.Paragraphs(4).Range 以上代码设置对象变量myRange为当前活动文档的第四段。
2） If myRange.Font.Name = "华文楷体" Then
myRange.Font.Name = "等线 (中文正文)"
Else
myRange.Font.Name = "华文楷体"
End If
以上代码要判断一下myRange的字体，如果是"华文楷体"那么将设置为"等线 (中文正文)"，其他情况则为"华文楷体"。
3）myRange.Bold = True
myRange.Italic = True
以上代码设置myRange范围为加粗及倾斜。
4）myPar.Range.HighlightColorIndex = wdNoHighlight
以上代码先清除一下颜色设置。
5） For Each myPar In ActiveDocument.Paragraphs
i = i + 1
If i Mod 2 = 0 Then
myPar.Range.HighlightColorIndex = wdYellow
End If
Next
以上代码将双数段设置为黄色。
代码的运行效果：
今日内容回向：
1 什么是Word中Range对象的Font属性、Italic 属性、HighlightColorIndex属性的意义是什么？
2 如何设置字体及颜色？
本讲内容参考程序文件：Doc 005文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
