以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何一次性选定word文档中的所有表格？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124355)
--  作者：wcs
--  发布时间：2018/9/4 23:05:00
--  请问如何一次性选定word文档中的所有表格？
我的代码是这样的：
全局代码：
Public _app As MSWord.Application \'定义一个WORD对象

按键代码：
Dim tbs = _app.Selection.Tables \'对表格进行排版
For i = 1 To tbs.Count
    Dim tb = tbs(i)
    tb.Range.Select
next

执行这样的代码的结果是只选定了最后一个表。（中间的选定过程全部被重新选定了）

希望能像按着CTRL键一样，一个个地选定表格，最后的结果是所有表格都被选定了。

有合适的代码吗？
--  作者：有点蓝
--  发布时间：2018/9/4 23:19:00
--  
请不要重复发帖http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=124354