Word文档中字体及颜色的设置(word文档中字体怎么变大)

【分享成果，随喜正能量】可以待人礼貌，但不要一副看起来「好欺负」的样子。来者不拒的帮忙、卑躬屈膝的姿态、毫无底线的跪舔，都会让你的生活一地鸡毛。不事后补刀。不要说“当初听我的”、“我就说嘛”这类风凉话，虽然说出来很爽，但无疑是给当事人的伤口撒盐，要么安慰他，要么给他提供帮助。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第5节：Word文档中字体及颜色的设置。

第五节 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()

【代码见教程】

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实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】其实根本没有高冷的人，只是人家暖的不是你。每个人面对不同的人，态度都是不同的，这是一种能力，不是虚伪。没有人能抵挡足够大的诱惑，和足够多的筹码。

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• 对不起！忘了告诉你如何激活win10LTSC版，比windows7流畅干净
• Mac新手使用技巧——Mac音量调节
• 新入手的iPhone 13，记得提前打开这5个功能，让手机更好用
• iPhone状态栏中怎么显示图标 状态栏爱心等图标设置方法
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• Excel常用函数知识：使用RANK.EQ或RANK.AVG函数进行排名计算
• RANKIF？Excel中有这个函数吗？
• 手机与和U盘的连接及文件操作(手机直接连接u盘为什么不能互传文件)