Word VBA 选取文档中的所有表格

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Word VBA 选取文档中的所有表格相关的知识，希望对你有一定的参考价值。

Sub 选取所有表格()

‘
‘ 选取表格 宏
‘
     Dim T As Table
     Application.ScreenUpdating = False
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     For Each T In ActiveDocument.Tables
         T.Range.Editors.Add wdEditorEveryone
     Next
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     Application.ScreenUpdating = True
 
End Sub

 

以上是关于Word VBA 选取文档中的所有表格的主要内容，如果未能解决你的问题，请参考以下文章

如何选取word文章中的某一段

在EXCEL中用VBA操作WORD表格：怎样选择一个表格中除第一行以外的任意连续行(比如第2到4行)？

从VBA将制表符插入word文档

VBA如何使用循环直到word文本的结尾？

在EXCEL中用VBA怎样操作WORD文档中嵌入的EXCEL表格？

如何用VBA将EXCEL中的若干的数据导入不同的word文档