word中如何一次选中全部非表格文字

ljy666

word中如何一次选中全部非表格文字？望各位VBA高手指点，非常感谢！！！！！！

ljy666

一次选中除表格外的全部文字，（前面表述可能不清晰）

ljy666

这个是一次全选文档中的所有表格

Sub SelectAllTables()
' 选表格 宏
Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

ljy666

Sub SelectAllTables()
' 选表格 宏
Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

413191246se

1. Sub TableSelectOut()
   
2. '表外选定
   
3.     Dim i As Paragraph
   
4.     With ActiveDocument
   
5.         For Each i In .Paragraphs
   
6.             If Not i.Range.Information(12) Then i.Range.Editors.Add -1
   
7.         Next
   
8.         .SelectAllEditableRanges -1
   
9.         .DeleteAllEditableRanges -1
   
10.     End With
    
11. End Sub

复制代码

ljy666

413191246se 发表于 2022-10-31 00:00

谢谢！这个只能不选择文档中的第一个表格。怎么才能不选择文档中的所有表格呢？

ljy666

添加一个文档附件，希望能有用。

因为工作中文档编辑时，经常要对表格外的文字进行排版编辑，而中间夹杂着大量表格，排版很不方便。要是能同时一次选择表格外的文档，排版效率就会高很多

常扬帆

ljy666 发表于 2022-10-31 08:46
添加一个文档附件，希望能有用。

因为工作中文档编辑时，经常要对表格外的文字进行排版编辑，而中间夹杂 ...

学习了，正在找呢？谢谢楼主的贴子，谢谢高手的代码！

413191246se

楼主，关于表格外排版，我早已有代码解决，请试试：https://club.excelhome.net/thread-1643301-1-1.html

ljy666

413191246se 发表于 2022-10-31 11:23
楼主，关于表格外排版，我早已有代码解决，请试试：https://club.excelhome.net/thread-1643301-1-1.html

好的，谢谢！抓紧去学习学习。昨天关注到了，可是没有搞懂