WORD文字和表格分开选中

ghxy98

请教一个WORD问题，如果类似这种表格有一百多张，如何一次性选择表格而不选中文字，试了好多方法都不行（如果用选择相似类似格式文本则其它一些不需要表也选中了，不是我想要的）

duquancai

选中干什么？ 遍历表格，逐个表格处理不就行了。非要选中吗？

413191246se

楼主，表格可以全选，也可以逐一处理，但属性设置可能不一样，如果不用代码的话。
如果楼主会VBA宏，则请试试下面的代码：

1. Sub 表格全选()
   
2.     Dim doc As Document, t As Table
   
3.     Set doc = ActiveDocument
   
4.     With doc
   
5.         .DeleteAllEditableRanges wdEditorEveryone
   
6.         For Each t In .Tables
   
7.             t.Range.Editors.Add wdEditorEveryone
   
8.         Next
   
9.         .SelectAllEditableRanges wdEditorEveryone
   
10.         .DeleteAllEditableRanges wdEditorEveryone
    
11.     End With
    
12. End Sub
    
13. Sub 表格处理_通用()
    
14. '功能：光标在表格中处理当前表格；否则处理所有表格！----循环遍历所有表格
    
15.     Dim t As Table, i As Long
    
16.     If Selection.Information(wdWithInTable) = True Then i = 1
    
17.     For Each t In ActiveDocument.Tables
    
18.         If i = 1 Then Set t = Selection.Tables(1)
    
19.         t.Range.Font.Color = wdColorRed '红色
    
20.         If i = 1 Then Exit For
    
21.     Next
    
22. End Sub

复制代码

ghxy98

413191246se 发表于 2018-4-12 00:22
楼主，表格可以全选，也可以逐一处理，但属性设置可能不一样，如果不用代码的话。
如果楼主会VBA宏，则请 ...

多谢！不用代码的话，有没有更好的方法

ghxy98

duquancai 发表于 2018-4-11 20:14
选中干什么？ 遍历表格，逐个表格处理不就行了。非要选中吗？

逐个处理太费时了

413191246se

楼主，如果不用 VBA 宏代码的话，手动必须按住 CTRL 键，并一一点击各个表格，但你有 100 多个表格，操作不易！所以，最好是用代码，全选或逐一选定均可，但不知道你想给表格设置多少属性……？
——所谓太费时间，我不认同！因为你没说具体给表格设置多少属性。