luda [分享成果，顺熙正能量]可以礼貌地对待，但不要“看起来好欺负的样子”。不拒绝的帮助、卑躬屈膝的姿态、没有底线的下跪，都将使你的生活成为鸡毛。事后不补刀。不要说“一开始听了我的话”、“我说过了”等挖苦话。说得痛快，但毫无疑问，在当事人伤口上撒盐、安慰他或给予帮助。
《VBA之Word应用》，我推出的第八个教程，教程专门讲解VBA在Word中的应用，以“面向对象编程”为中心，首先在Word中了解VBA的对象和对象的属性、方法，然后通过例子感受Word VBA的妙处，本教程共3卷16章，今天的内容为5
部分5 Range对象属性(4)
你好，我将继续解释Range对象属性。因为与对象的属性、方法相关的内容很多，所以我想介绍更多教程中常用的应用程序。
1 Range。Font属性
此属性返回或设置表示指定对象的字符格式的Font对象。Font类型，可读写。
语法：ex
其中expression是表示Range对象的变量。
2 Range。Italic属性
如果将此属性设置为TRUE，则字体或区域的格式设置为倾斜格式。
语法：ex
其中expression是表示Range对象的变量
此属性将返回true、false或wdUndefined (true和false的组合)，可以设置为true、False或wdToggle。3 Range。HighlightColorIndex属性
此属性返回或设置指定区域的高亮颜色。
语法：expression。HighlightColorIndex
其中expression是表示Range对象的变量。
4示例：设置范围字体和颜色
通过以下示例，我将演示本节中属性的应用。在这种情况下，首先设置Range的对象变量，然后将该对象变量的字体设置为“中文楷体”，在粗体和斜体以及最后在段落之间循环。双数显示为黄色。我们先来看看下面的代码。
Sub mynzD()
[请参阅代码教程]
End Sub
代码屏幕截图：
代码解释：
1) Set myRange=Ac(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 Ac
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实践经验，全部集中在下一个教程中。
【成果分享，班熙正能量】其实根本没有高冷的人。只是别人暖和不是你。每个人对待别人的态度都不一样。这是一种能力，不是伪善。没有人能阻止足够的诱惑和足够的筹码。