【办公-WORD】VBA 选中所有表格

怎么启动和使用VBA,在这我就不多说了，可以参考我之前【办公-WORD】之类的文章，有详细说明。

直接上代码

Sub 选中所有表格()
    Dim T As Table
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each T In ActiveDocument.Tables
        T.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub


版权声明：本文为chenlu5201314原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。