【分享成果，随喜正能量】千磨万击还坚韧，任尔东西南北风。生活会有痛苦，也会有了让你想放弃的瞬间，但只要你有坚定不屈服的意志，就等于给双脚添了一双翅膀！一念放下，万般自在。心中有执念，便是有着凌云之志，也无法行动，犹如困兽之斗。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第3节：利用VBA在文档中添加表格。
大家好，我们这讲继续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
代码截图：
代码解读：
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
以上代码是向表格中添加一些数值。
我们最后来看代码的运行：
提示字符数：
提示行列数：
添加的表格：
今日内容回向：
1 Word中Range对象的Characters 属性、Columns 属性、Rows属性的意义是什么？
2 Word中插入表格后，如何显示表格的行数、列数，并在表格中填入数值？
3 在显示第一段的字符数时和字数有何不同？
本讲内容参考程序文件：Doc 005文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】慈爱众生并给予其快乐，称为慈；同感其苦，怜悯众生并拔除其痛苦，称为悲。救度他人的灵魂使其不致堕落，就是对众生的最大的慈悲。慈悲是完全放下自我为他人着想的一种境界，也是修炼人彻底放弃情欲之后所产生的纯净善念。慈悲之光威力无比，它能融化人世间一切不善的物质，照亮宇宙的任何一个角落。
,
