介绍使用vba语句操作word中的表格。 本文讲解word中使用vba将光标定位到表格外的下一行 在word表格中，将光标移动到表格外的下一行 即将光标定位到表格的末尾。 表格的末尾位置 = 下一段落的开始位置
一、案例展示
'创建3个表格，表格的格式为4行3列，类型为网格型
'每个表格中间空一行
'关键点在于：
'在创建一个表格后，将光标移动到表格下面的一行行首位置
'创建完成一个表格后，光标会自动定位在表格的1行1列的单元格中，
'需要先将整个表格选中
'然后将光标折叠到选中部分的最后位置
'接下来插入一个空段落
'最后再进行下一个表格的操作
Sub word表格中光标的移动()
Dim t As Table, i As Integer
For i = 1 To 3
Set t = ActiveDocument.Tables.Add(Selection.Range, 4, 3)
t.Style = "网格型"
t.Select
'将光标定位到表格下面的段落起始位置（即 表格的末尾）
Selection.Collapse wdCollapseEnd
'插入一个段落
Selection.TypeParagraph
Next i
End Sub
执行后的结果
二、使用的方法
Range.Collapse 方法
将某一区域或所选内容折叠到起始位置或结束位置。折叠之后起始位置和结束位置相同。
