【分享成果，快乐正能量】一切都叫解脱。不要执着，不要攀比，喜怒哀乐全靠自己。什么都不能贪。一旦喜欢，就坚持下去。你应该不用担心。看人好，看事好，看境遇好，一切都是自己的心。。

VBA的Word应用是我推出的第八套教程。教程专门讲解VBA在Word中的应用，重点是“面向对象编程”。首先让大家了解Word中VBA的对象，它们的属性和方法，然后通过实例让大家感受Word VBA的美好。本教程由三卷十六章组成。今天的内容是第五章“Word中的范围对象(第1部分)”，第6节:向Word文档中添加图表和图形对象。

第六节范围对象的属性(5)

好了，大家继续解释Range对象的属性。这一部分是Range属性的最后一部分。本章中的Range对象是我们掌握VBA词的一个重要部分，我们需要特别掌握。

1.表格属性

该属性返回一个tables集合，该集合代表指定范围内的所有表格。

语法:表达式。桌子

其中expression是代表Range对象的变量。

2.范围。给属性加下划线

或返回应用于一系列设置的下划线类型。

语法:表达式。强调

其中expression是代表Range对象的变量。

3.范围。ShapeRange属性

该属性返回一个ShapeRange集合，该集合代表指定区域中的所有Shape对象。

语法:表达式。ShapeRange

其中expression是代表Range对象的变量。

图形范围可以包含绘图、图形、图片、OLE 对象、ActiveX 控件、文本对象和标注。

4个例子:添加下划线，添加图表，添加图形颜色

我们举个例子。在本示例中，为当前活动文档中的段落添加下划线，在当前文档中添加表格，在表格中添加文本，最后在当前文档中添加两个图形并为图形添加颜色。让我们看看下面的代码:

Sub mynzE

[详细代码见教程]

末端接头

代码截图:

代码解释:

1)'在文件的第三段加双下划线。

ActiveDocument段落(3). range . underline = wdUnderlineDouble

上面的代码在当前文档的第三段添加了双下划线，wdUnderlineDouble就是双下划线。

我们来看看WdUnderline的枚举值:

WdUnderlineDash 7划线。

WdUnderlineDashHeavy 23粗体线条。

WdUnderlineDashLong 39长破折号。

WdUnderlineDashLongHeavy 55长粗线。

WdUnderlineDotDash 9: 00点和线。

WdUnderlineDotDashHeavy 25粗交替虚线。

WdUnderlineDotDotDash 10点-点-划交替模式。

WdUnderlineDotDotDashHeavy 26厚点-点-划交替模式。

WdUnderlineDotted 4点。

WdUnderlineDottedHeavy 20比较粗。

下划线双线3双线。

WdUnderlineNone 0没有下划线。

Underlinesingle1单行。默认值。

WdUnderlineThick 6单粗线。

WDLINEWY11单波浪线。

Underlinewavedouble43双波浪线。

WdUnderlineWavyHeavy 27粗波浪线。

WdUnderlineWords 2仅给单个单词加下划线。

2)'添加两个矩形，用紫色填充。

ActiveDocument形状添加形状msoShapeRectangle，50，50，100，200

ActiveDocument形状添加形状msoShapeRectangle，150，150，100，200

ActiveDocumentcontent . shape range . fill . forecolor . RGB = _

RGB(255，0，255)

上面的代码将添加两个矩形图形，我们将在后面解释图形的添加，msoShapeRectangle。

是指矩形，后跟四个数值，分别指图形的左边位置、顶部尺寸、宽度和高度。

添加图形后，给图形添加紫色RGB(255，0，255)。大家要注意添加颜色的写法:active document . content . shape range . fill . forecolor。

3) '添加一个图表，图表的第一列将填充数据。

ActiveDocument段落.添加

上面的代码添加了一个新的段落。

4)设置myTable = ActiveDocument。tables . Add(Range:= active document。段落(ActiveDocument。段落数)。Range，NumRows:=3，NumColumns:=3，DefaultTableBehavior:= wd word 9 tablebehavior)

上面的代码是添加一个图表。

5)数量= 100

对于ActiveDocument中的每个myCell。表格(1)。列(1)。细胞

迈锡尔。Range . Text = Num & & # 34VBA & # 34；

数字=数字+ 1

然后

上面的代码是填写图表第一列中的内容，

看看下面代码的运行情况:

今天的内容回来了:

1 Word中Range对象的Tables属性、Underline属性和ShapeRange属性是什么？

2如何设置段落的图表、图形和下划线？

本讲座参考程序文件:Doc 005 document.docm。

我有20多年的VBA实战经验，全部浓缩在以下教程里:

【分享成果，用正能量快乐】生活中还有更多美好的事情等着我们。不怨天尤人，不在乎，其实就是放任了自己。纠缠你的是你的执着和怀疑，解放你的是你的轻松和放下。一个人如果不能发自内心的原谅别人，就永远不会心安理得。