ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 430|回复: 10

[分享] Word-VBA 公文自动排版宏 20240602 测试版(试用版)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-6-6 02:17 | 显示全部楼层 |阅读模式
* 本版本并未完善,如果不喜欢试用,可以继续使用 2023 元旦版。想尝鲜的朋友们可以一试。
* 使用方法:解压两次后,执行 Templates Delete 批处理宏(双击即可)删除 Word 的默认模板,这样 Word 比较干净,导入代码后会发挥本机排版的优势;然后,导入 NewMacros.bas 宏代码;将 Official 宏放到快速访问工具栏上或设置热键即可试用公文自动排版。懂的都懂,不多说了。
* 如果还有使用 XP 系统的朋友可以在 VBE 中自行将“仿宋”和“楷体”替换为 GB2312 字体。
* 该版本对于较小公文,可能会半秒排,也可能会秒排,也许会3、4秒排。建议使用高级电脑。
* ---------
*'2024新版亮点:
'1、抛弃样式!--直接将正文设置为标题12345,疑难杂症减少,排版速度提高。
'2、<标题2345>自动取消标题!--样式相同的相邻段落不排版。-------这是最大 Max 亮点!
'3、<标题2345>序号自动编号!--无需人工校对。-----过去的亮点。
'4、<落款>宏+<附件>宏:重写代码,解决了日期中有空格的问题。
* 下载: Mac20240602Test.rar (22.55 KB, 下载次数: 82)

评分

3

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-6-6 03:19 | 显示全部楼层
本帖最后由 413191246se 于 2024-6-30 01:59 编辑

补:想测试公文排版宏运行时间,可以打开文档后,执行"禁用_MacroTime"宏。
补:想将彩色版改为黑白版,请将“禁用_AutoColor”宏改名为“AutoColor”宏;再在“Official”宏最后一句代码“End Sub”上面一段键入“AutoColor”即可。

补:请注意!如果不是导入我的代码,而是复制粘贴到 VBE 中,则 Word2007 以上版本可能会出现乱码!解决方法就是:复制代码到空白文档中,再全选,剪切,再粘贴到 VBE 中,这样就不会出现乱码了!
补:请注意!如果将代码粘贴到 VBE 中后,提示出错,请在 VBE 中将“…-”(即半个省略号和减号)全部替换为“…—”(即半个省略号和半个破折号)即可。

TA的精华主题

TA的得分主题

发表于 2024-6-6 08:04 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-6-6 16:08 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-6-6 19:42 | 显示全部楼层
本帖最后由 413191246se 于 2024-6-8 00:17 编辑

。。。。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-6-6 19:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 413191246se 于 2024-6-6 19:54 编辑

* vbee 老师:谢谢夸奖!水平太低,时间精力有限,还请老师指教啊!
* 因前一段某文档字表混排,我的电脑还是高级电脑(小一万),但排版时间达 4 秒多之久!经过修改 Title2345 宏,不使用查找法,而使用循环遍历段落法提速斐然,表格排版达到了 1 秒多,纯文本就更快了!
* 另外,前些天读到一篇文章,说“只有极简,才能清爽!”我深以为然!我也想将公文自动排版宏打造成“极简清爽版”、“极速简化版”,不常用、高频的应用就不必加入其中。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-6-6 20:04 | 显示全部楼层
* jyjzfl 朋友,你好!——我建议你还是试用一下我的最新 2024 版(最大亮点:自动取消相邻标题)。
* 使用我的代码的方法有两种:如果你全新使用我的代码,可以直接导入代码,抛弃你自己的代码(NewMacros.bas);另一种是,如果你想复制我的代码加入你的代码中,必须:复制代码到新建文档中,再全选这个新建文档中的代码,再粘贴到 VBE 中,这样就不会有乱码了!因为我的 Word 2019 也是这样,不能直接复制到 VBE 中,要先复制到新建空白文档中,再将该空白文档中的代码复制到 VBE 中,原因可能是 2007 以后可能是 UTF-8 的编码体系,以前 Word 2003 的是 ANSI 内码体系。
* 还有,请在全新使用我的代码前,双击"Templates Delete"删除你原来的模板;也可以不删除。
* 请按照我上面所说的照做一下,体会一下新版排版效果。我希望咱们可以经常联系,你有什么排版方面的想法和建议,请在此帖发帖,咱们共同探讨排版之最新方法效果。

TA的精华主题

TA的得分主题

发表于 2024-6-7 09:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-6-21 16:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
MAC的,劝退

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-6 22:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Mac = Macros <> Macintosh
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-7-12 18:11 , Processed in 0.045339 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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