excel用vba新建表格（利用VBA在文档中添加表格）

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

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

第三节 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

代码截图：

代码解读：

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实践经验，全部浓缩在下面的各个教程中：

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

,