[分享成果,喜悦和正能量]追随所有缘分称为解脱。不执着,不攀登,苦乐完全取决于自己。不能贪图任何东西,一旦喜欢就执着于那里,就不要被打扰。看人是好人,看事情是好事,看环境是好环境,一切都是自己的心。

《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、25)

5)

以上代码会添加两个矩形图形,关于图形的添加我们会在以后讲解到,msoShapeRectangle

是指矩形,后面跟的四个数值分别指图形的位置Left, Top大小Width,Height。

添加图形后给图形添加上紫色RGB(255, 0, 255),大家要注意添加颜色的写法: Ac


3) '添加图表,图表的第一列填上数据

Ac.Add

以上代码添加一个新的段落

4) Set myTable = Ac(Range:=Ac(Ac.Count).Range, NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)

以上代码是添加一个图表


5)Num = 100

For Each myCell In 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实践经验,全部浓缩在下面的各个教程中:

【分享成果,随喜正能量】人生有更多美好的东西在等待我们,对他人不指责,不计较,其实也是放过了自己。纠缠你的是你的执着和猜疑,解放你的只有你的轻松与放手。一个人如果不能从内心去原谅别人,那他就永远不会心安理得。

1.《【红色word文档怎么画图形】Word文档中的图表,添加图形对象》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《【红色word文档怎么画图形】Word文档中的图表,添加图形对象》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/2527261.html