分享成果,随喜正能量】千磨万击还坚韧,任尔东西南北风。生活会有痛苦,也会有了让你想放弃的瞬间,但只要你有坚定不屈服的意志,就等于给双脚添了一双翅膀!一念放下,万般自在。心中有执念,便是有着凌云之志,也无法行动,犹如困兽之斗。

《VBA之Word应用》,是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章,今日内容是第五章“Word中的Range对象(上)”第3节:利用VBA在文档中添加表格。

excel用vba新建表格(利用VBA在文档中添加表格)(1)

第三节 Range对象的属性(二)

大家好,我们这讲继续Range属性的讲解。在上一节中,我们讲了如何利用Range属性加粗某个段落,及如何在当前活动文档中插入表格及向表格中添加内容的方案,这讲我们继续向下讲解。

1 Range.Characters 属性

这个属性返回一个表示区域中的字符的字符集合。

语法:expression.Characters

其中:expression 为一个表示 Range 对象的变量

2 Range.Columns 属性

这个属性返回一个Columns集合, 该集合代表区域中的所有表格列。

语法:expression.Columns

其中:expression 为一个表示 Range 对象的变量

3 Range.Rows 属性

返回一个Rows集合, 该集合代表区域中的所有表格行。

语法:expression.Rows

其中:expression 为一个表示 Range 对象的变量

4 实例:显示字符数及表格的添加

下面我们仍是就一个实例来讲解本节的一些属性,大家要注意Word VBA和Excel VBA在学习的时候要注重应用程序的利用,要仔细代码的写法,不可凭空臆断。这讲的代码中首先要给用户当前文档第一段的字符数,然后在文档的最后插入一个表格,并在表格中填入一些数值。

我们看下面的代码。

Sub mynzB()

【代码见教程】

End Sub

代码截图:

excel用vba新建表格(利用VBA在文档中添加表格)(2)

代码解读:

1)MsgBox "当前文档第一段的字符数为: " & ActiveDocument.Paragraphs(1).Range.Characters.Count 这段代码将弹出当前活动文档第一段的字符数

2)ActiveDocument.Paragraphs.Add 这句代码是添加一个段落

3) Set myTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range, _

NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior)

以上代码是在最后的段落中添加一个表格

4) If ActiveDocument.Tables.Count >= 1 Then

MsgBox "列数:" & ActiveDocument.Tables(1).Columns.Count & " 行数:" & ActiveDocument.Tables(1).Rows.Count

End If

以上代码是给出所添加表格的行数和列数

5)With ActiveDocument.Tables(1)

For I = 1 To .Columns.Count

For T = 1 To .Rows.Count

.Cell(T, I).Range.Text = I T

Next

Next

End With

以上代码是向表格中添加一些数值。

我们最后来看代码的运行:

提示字符数:

excel用vba新建表格(利用VBA在文档中添加表格)(3)

提示行列数:

excel用vba新建表格(利用VBA在文档中添加表格)(4)

添加的表格:

excel用vba新建表格(利用VBA在文档中添加表格)(5)

今日内容回向:

1 Word中Range对象的Characters 属性、Columns 属性、Rows属性的意义是什么?

2 Word中插入表格后,如何显示表格的行数、列数,并在表格中填入数值?

3 在显示第一段的字符数时和字数有何不同?

本讲内容参考程序文件:Doc 005文档.docm

excel用vba新建表格(利用VBA在文档中添加表格)(6)

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

excel用vba新建表格(利用VBA在文档中添加表格)(7)

分享成果,随喜正能量】慈爱众生并给予其快乐,称为慈;同感其苦,怜悯众生并拔除其痛苦,称为悲。救度他人的灵魂使其不致堕落,就是对众生的最大的慈悲。慈悲是完全放下自我为他人着想的一种境界,也是修炼人彻底放弃情欲之后所产生的纯净善念。慈悲之光威力无比,它能融化人世间一切不善的物质,照亮宇宙的任何一个角落。

,