使用vba定位到下一个表格

leedun

文档中有很多表格，为了提高表格编辑速度，突然想到使用vba定位，情况有两种，一种是当前光标在表格中，另一种是不在表格中的时候，请各位前辈、大神帮忙，祝大家新春快乐

大罡

1. Sub next Table()
   
2. Dim cur_tbl next_tbl As Integer
   
3. cur_tbl = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
   
4. next_tbl= cur_tbl+1
   
5. ActiveDocument.table（next_tble).xxx
   
6. End Sub

复制代码

xxx 表示你要做什么了，其实这是一个老生常谈的话题。怎么定位到当前表格。

大罡

1. With Selection
   
2.     If .Information(wdWithInTable) Then
   
3.         xxx
   
4.     End If
   

复制代码

判断光标是否在表格中..... 如果在，那么。。。。

leedun

大罡 发表于 2022-2-22 13:21
xxx 表示你要做什么了，其实这是一个老生常谈的话题。怎么定位到当前表格。

非常感谢，问题已经解决了