Word2003 & 2007 VBA 通用模板宏（极速版）2019-8-15 修正

413191246se

* 修正：2007 版执行《aaaa自定义》宏时会卡住！删除《大气版》这行代码就 OK 了，已修正！时间：8月15日22:22

* 通过保存在通用空白模板 Normal.dot 中的宏代码提供初级一键快速自动排版及应用程序。
     
* 请按照《使用说明》导入代码后，必须执行《aaaa自定义》宏后退出 Word 重进，否则出错！
   
* 想用《方正小标宋简体》做标题，请下载字体文件 FZXBSJW.TTF 复制到 C:\Windows\Fonts

* 排版热键——F7：普通    F8：公文
   
* 不能下载的朋友，请给我写信，我的邮箱：ln1400014884@163.com

* 亮点：谢谢论坛各位老师的指导，模块化编程，重新处理排版流程，目前版本是速度最快的！

* 亮点：标题2345样式自动设置，耗时仅 .015 秒（而 7月9日版本耗时 .03 秒）

* 亮点：落款重新编写，不仅支持“2019年8月15日”格式，还支持“2019-8-15”、“2019。8。15”等格式。                                                                          
* 亮点：不分 Win7/WinXP，仿宋/楷体字体自适应。
   
* 时间仓促，水平有限，不足之处，敬请见谅！谢谢大家！（如果今天版本有问题，请用 7月9日版本）
  
* 下载链接： vm815ok.rar (243.24 KB, 下载次数: 319)

2019-8-15 22:24 上传

点击文件名下载附件

413191246se

* 各位朋友：想下载方正小标宋简体，可到我 7月9日 帖子中去下载。
* 如果不喜欢“通用模板宏”字样，可自行修改为“自动排版宏”即可（我个人还是喜欢“通用模板宏”这个叫法）。
* 使用 Word2010/2013/2016/2019/365 的朋友们，也可以试用 Word2007 版本的宏，小文档排版比较便利。


* 在今天（8月15日）22：22 前下载的朋友，请注意——2007版，既可以在执行《aaaa自定义》宏时，将卡住的一行代码（设置《大气版》热键）删除，再重新运行《aaaa自定义》宏，退出 Word 重新进入即可正常使用；也可以重新下载。

413191246se

* 本次更新：主要对公文和普通排版流程进行优化提速。最近两周来，数易其稿，最终实现极速排版。

413191246se

略。。。。

413191246se

* 多级标题自动编号宏，刚才想对比一下大文本自动设置标题12345样式时间，结果大吃一惊！
* ForEachNext循环遍历段落法（Instr函数）用时 0.56 秒（发布时用的方法，未必最快，但也极速了！）
* ActiveDocument（Range）对象法----------用时 9.56 秒
* Selection 对象法------------------------------用时 15.86 秒
* 结论：最近似乎，无论是 ActiveDocument/Range（区域）法查找，还是 Selection 对象法查找，均败给 For Each ...Next（循环遍历段落法）！——像查找“九十八、指导思想”只须用 Instr 函数即可，但最快的方法是在我的自动排版代码中，查找替换后，只须每个段落都是“一、XX”，再用循环，达到极速！
* 经典而又简洁的 For Each ... Next 循环遍历集合法，永远焕发出青春光彩！（zhanglei1371 老师 前不久就贡献了一例精彩代码，就是我徒弟 139 的那道药品题。）

413191246se

* 请各位下载的朋友，自行更新附件宏，以期公文排版时无需手动调整，自动对齐（虽然理论上无须人工复制附件名称，但建议不是看几眼，以免自动设置附件标题时产生偏差），谢谢各位！
* 请在排版后，用“页宽”和“多页”（有时 3 页/2页）等比例校对审阅，最后保存时建议以“页宽”比例存盘。

413191246se

顶。。。。

praijna

感恩 413191246se 老师的分享，祝福吉祥如意！

413191246se

谢谢 praijna 朋友！

413191246se

略。。。。