首页 › 环评软件工具 › 报告中大量表格统一调整的方法

wx_Rzonlko8 发表于 2018-9-21 11:44

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

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

ziyun005 发表于 2018-11-13 13:50

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

akuson 发表于 2018-11-15 09:02

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 发表于 2018-11-15 09:23

确实   是坑

liusongxiaoxi 发表于 2019-2-25 15:29

这是什么软件？

卢敏 发表于 2019-5-27 17:25

学习学习学习

饿货sun 发表于 2019-8-28 16:46

==没看懂，求指教

查看完整版本: 报告中大量表格统一调整的方法