Word-VBA 公文自动排版宏 20240714 测试版

413191246se

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

2024-7-14 01:35 上传

点击文件名下载附件

413191246se

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

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

vbee

谢谢分享，EH有你更精彩

jyjzfl

123

413191246se

。。。。。。

413191246se

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

413191246se

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

jyjzfl

谢谢，好的，再试试2024

紫--蓝

MAC的，劝退

413191246se

Mac = Macros <> Macintosh