网址不是www.eiafans.com的网站都是假的环评爱好者网站,请立即关闭!

Eiafans.com_环评爱好者

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

2018年环境影响评价师辅导
发布环保竣工验收公示|发布环评公示
建设项目环评费用在线计算|收费标准
环评师招聘与应聘| 行业信息|预评审会
2018年环评工程师备考全程指导|报名时间汇总
2018年环评师考试交流|资料下载
2018年环境影响评价工程师考试培训!
低价环评考试用书教材|环评图书免运费
考前培训|继续教育
上岗证报名系统|工程师登记培训
查看: 253|回复: 3
收起左侧

[分享] 报告中大量表格统一调整的方法

[复制链接]
发表于 2018-9-21 11:44 | 显示全部楼层 |阅读模式
一本环评报告要有几十个表格,调整表格占用很长时间,而且可能会有漏洞,分享一个一次性调整所有表格的方法。注意:电脑有卡顿的慎用,或者把报告及时备份。

选中所有表格.doc

15 KB, 下载次数: 27, 下载积分: 金币 -10 个

售价: 8 个金币  [记录]

发表于 2018-11-13 13:50 | 显示全部楼层
下了,看不懂,慢慢研究研究。谢谢分享
回复 支持 反对

使用道具 举报

发表于 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
回复 支持 反对

使用道具 举报

发表于 2018-11-15 09:23 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

热点推荐上一条 /1 下一条

2018年环境影响评价师辅导

联系我们|业务合作|手机版|Archiver|环评爱好者 ( 鄂ICP备06016596号 )

京公网安备11010502035293号

关注官方公众号

GMT+8, 2018-12-16 16:57 , Processed in 0.117283 second(s), 35 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表