请教：如何选择word中除表格以外的文字

雷洛

请教：想对word中除表格以外的文字进行放大，表格中的文字不放大，要如何实现快速选择，假如文章很长的情况下一个个选就很麻烦了。谢谢。

huguifang

貌似只能用宏了

zhanglei1371

可以这样：全选word 表格，设置为红色，然后剩余文本为黑色，就可以区分操作了

雷洛

zhanglei1371 发表于 2012-10-2 19:34
可以这样：全选word 表格，设置为红色，然后剩余文本为黑色，就可以区分操作了

关键是如何一下子批量全选word表格，如果这一步可以有办法，我的问题就解决了，也就没必要再区分什么颜色了。

zhanglei1371

这个简单，百度……全选表格vba 可以找到现成的代码

ljy666

问题解决了吗？我也同样期待解决同样的问题

vbee

第一个宏，选择word中除表格以外的文字
第二个宏，取消选择

413191246se

1. Sub TableSelectAll()
   
2. '表格全选
   
3.     Dim t As Table
   
4.     With ActiveDocument
   
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 TableSelectOut()
    
14. '表外选定
    
15.     Dim i As Paragraph
    
16.     With ActiveDocument
    
17.         For Each i In .Paragraphs
    
18.             If Not i.Range.Information(12) Then i.Range.Editors.Add -1
    
19.         Next
    
20.         .SelectAllEditableRanges -1
    
21.         .DeleteAllEditableRanges -1
    
22.     End With
    
23. End Sub

复制代码

wanglingxing1

用ctrl+shift+end 和ctrl+shift+home 可以解决你上面的问题了