报告中大量表格统一调整的方法

wx_Rzonlko8

一本环评报告要有几十个表格，调整表格占用很长时间，而且可能会有漏洞，分享一个一次性调整所有表格的方法。注意：电脑有卡顿的慎用，或者把报告及时备份。

ziyun005

下了，看不懂，慢慢研究研究。谢谢分享

akuson

ALT F8,打开宏对话框，创建名为SelectAllTables的宏。代码如下：
Sub SelectAllTables()
Dim tempTable As Table
Application.ScreenUpdating = False
'删除所有可编辑的区域
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



都别下载，就这么一小段vba

wxj_7573

确实   是坑

liusongxiaoxi

这是什么软件？

卢敏

学习学习学习

饿货sun

==没看懂，求指教