word vba 操作表格， 使用VBA在word中将光标设置在表格之后

介绍使用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 方法 将某一区域或所选内容折叠到起始位置或结束位置。折叠之后起始位置和结束位置相同。