【word文档预设颜色怎么填】设置Word文档的字体和颜色

[分享成果，顺熙正能量]可以礼貌地对待，但不要“看起来好欺负的样子”。不拒绝的帮助、卑躬屈膝的姿态、没有底线的下跪，都将使你的生活成为鸡毛。事后不补刀。不要说“一开始听了我的话”、“我说过了”等挖苦话。说得痛快，但毫无疑问，在当事人伤口上撒盐、安慰他或给予帮助。

《VBA之Word应用》，我推出的第八个教程，教程专门讲解VBA在Word中的应用，以“面向对象编程”为中心，首先在Word中了解VBA的对象和对象的属性、方法，然后通过例子感受Word VBA的妙处，本教程共3卷16章，今天的内容为5

节v 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的对象变量，然后将该对象变量的字体设置为“中文楷体”，在粗体和斜体以及最后在段落之间循环。双数显示为黄色。(威廉莎士比亚，Northern Exposure(美国电视剧)，Northern Exposure(美国电视剧))，我们先来看看下面的代码。

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实践经验，全部集中在下一个教程中。

【分享成果，班熙正能量】其实根本没有高冷的人，但是人家温暖的不是你。(威廉莎士比亚，《哈姆雷特》)每个人对待别人的态度都不一样。这是一种能力，不是伪善。没有人能阻止足够的诱惑和足够的筹码。