text 选中所有表格18-7-6

Posted 2021-05-02

Sub 选中所有表格()
    Dim T As table
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each T In ActiveDocument.Tables
      If T.Columns.count > 2 And T.Rows.count > 1 Then
        T.Range.Editors.Add wdEditorEveryone
        End If
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub


Sub SelectAllTables()
    Dim tempTable As table
   


    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
  
    '删除所有可编辑的区域
      
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
   
End Sub