luda [分享成果，喜悦和正能量]追随所有缘分称为解脱。不执着，不攀登，苦乐完全取决于自己。不能贪图任何东西，一旦喜欢就执着于那里，就不要被打扰。看人是好人，看事情是好事，看环境是好环境，一切都是自己的心。
《VBA之Word应用》，我推出的第八个教程，教程专门讲解VBA在Word中的应用，以“面向对象编程”为中心，首先在Word中了解VBA的对象和对象的属性、方法，然后通过例子感受Word VBA的妙处，本教程共3卷16章，今天第5章。
部分6 Range对象属性(5)
大家好，我将继续解释Range对象的属性。本节的内容是Range属性的最后一节。本章中的Range对象是了解Word VBA的重要内容。我们要特别把握。
1 Range。Tables属性
该属性返回表示指定区域中所有表的tables集合。
语法：expression。Tables
其中expression是表示Range对象的变量。
2 Range。Underline属性
返回或设置应用于一系列下划线的类型。
语法：ex
其中expression是表示Range对象的变量。
3 Range。ShapeRange属性
这个属性会传回代表指定区域中所有Shape物件的ShapeRange集合。
语法：ex
其中expression是表示Range对象的变量。
图形范围可以包括图形、图形、图片、OLE对象、ActiveX控件、文字对象和标注。4示例：添加下划线、添加图表、添加图形颜色
例如，为当前活动文档中的一段加下划线，为当前文档添加表，为表添加文本，最后为当前文档添加两个图形，为图形添加颜色。现在让我们看一下代码。
Sub mynzE()
[有关详细代码，请参阅教程]
End Sub
代码屏幕截图：
代码解释：
' 1)'在文件的第三段加上双下划线
交流(3)。range . underline=wdunderlinedouble
上面的代码为当前文档的第三段添加双下划线，wdUnderlineDouble添加双下划线。
让我们看一下WdUnderline的枚举值。
WdUnderlineDash 7虚线。
WdUnderlineDashHeavy 23粗虚线。
WdUnderlineDashLong 39长划线。
WdUnderlineDashLongHeavy 55长粗虚线。
在WdUnderlineDotDash 9点之间画一条线。
WdUnderlineDotDashHeavy 25宽点相互划线。
WdUnderlineDotDotDash 10点-点-虚线之间的模式。
WdUnderlineDotDotDashHeavy 26粗点-点-虚线之间的模式。
WdUnderlineDotted 4分。
WdUnderlineDottedHeavy 20粗点。
WdUnderlineDouble 3双线。
WdUnderlineNone 0没有下划线。
WdUnderlineSingle 1单线。默认值。
WdUnderlineThick 6单线粗线。
WdUnderlineWavy 11单波浪线。
WdUnderlineWavyDouble 43双波浪线。
WdUnderlineWavyHeavy 27粗波浪线。
WdUnderlineWords 2仅为一个单词加下划线。
2)添加两个填满“紫色”的正方形
Ac msoshaperectangle，50，50，100，200
Ac msoshaperectangle，150，150，100，200
Ac=_
RGB(255、0和255)
上面的代码添加了两个矩形图形。关于添加图形，我稍后再解释。msoShapeRectangle
指向矩形，后面的四个数值分别表示图形的位置：Left、Top大小Width和Height。
添加图形后向图形中添加紫色RGB(255、0、255)时添加颜色的符号：Ac
3)添加图表时，图表的第一列将填充数据。
交流电。Add
上面的代码添加了一个新段落
4)set my table=AC(range :=AC(AC . count))。range、numrows :=3、num columns :=3
上面的代码是添加图表
5)Num=100
For each my cellin AC (1)。columns (1)。cells
MyCell。Range.Text=Num' VBA '
Num=Num 1
next
上面的代码在图表的第一列填写内容。
下面我们来看看代码的工作原理。
今天的内容返回：
1在Word中，Range对象的Tables属性、Underline属性和ShapeRange属性意味着什么？
如何设置第2段的图表、图表和下划线？
本课程内容参考计划文件：Doc 005文档。docm
我有20多年的VBA实践经验，全部集中在下一个教程中。
【分享成果，根据喜悦获得能量】人生中更好的东西在等着我们。不指责别人，不计较，其实是在放开自己。纠缠你的是你的执着和怀疑，解放你的只有你的轻松和放手。如果一个人不能从心里原谅另一个人，他永远不会心安。