Word 2003 & 2019 自动排版宏（2020 国庆珍藏版）

413191246se

* 功能：通过导入 VBA 宏代码到空白通用模板 Normal.dot(m) 中，提供初级一键快速自动排版。
* 热键：F5/保存    F6/关闭    F7/普通排版    F8/公文排版
* 速度：有所提升！虽非最快，可谓极速！
* 技巧：如果感觉热键失效，请按 Alt + F8 组合键，点击第一个宏：Custom(自定义)“运行”之。
* 感谢：特别感谢 ming0018 老师/zhanglei1371 老师/duquancai 老师/loquat 老师！谢谢大家！
* at928.rar (99.98 KB, 下载次数: 1883)

2020-10-1 07:57 上传

点击文件名下载附件

413191246se

* 不好意思！实际上，也要感谢 小花鹿 老师！他经常念叨“.Move 4”，后来我发现并不太好用；再后来，ming0018 老师 提出表格不用 .information(12) 而改用 .Tables.Count；然后，由 zhanglei1371 老师 实现代码。试验结果，纯文本（无表格）适用于 ForEachNext；表格适用于 .MoveStart，进入表格马上跳出，这样速度才会飞快！——还有，也感谢 cuanju 老师、daibao88 老师及其他各位老师、版主，各位坛友！

* 1楼帖子，我忘写一句话：排版流程/框架彻底定稿！不再更改。如无重大 BUG，应该是终极版了！此版值得珍藏！

* 热键：F9/打印关闭不保存    F10/打印多份关闭不保存    F11/打印当前页    F2/减少首行缩进   
* 注意：Word2019 版自动排版宏，也适用于 Word2007/2010/2013/2016；是否适用于 Word365，不得而知。
* 压缩包中的 Word.qat/Word.officeUI 是 Word2007-2019 的<快速访问工具栏>配置文件，请自行选用。
* 这两个配置文件，只须右键删除<快速访问工具栏>的一个按钮，再搜索 C 盘找到后删除，换成我的即可。
  
* 按 Alt + F8 打开宏名列表后，点击 Custom(自定义)宏，再点击右侧“运行”按钮，会自动在“帮助”选项卡前面生成一个“加载项”选项卡，在这个选项卡上第一个按钮“公文排版”上点击右键，选择“在快速访问工具栏上添加组”命令，会在快速访问工具栏上添加了一个新的菜单项（在最后位置）。这个菜单项与“加载项”中的内容是一样的，但使用起来有所不同。

岁月无恒

感谢分享好工具。

666611430

谢谢楼主分享。
***我按照上次的想法把这些宏代码编程外接程序（Word Add-in）, 由于之前不怎么接触vba，在vba代码转换成C#代码过程中进程缓慢，到现在为止还没有编写完毕，实在不行，我用vb.net编写。

413191246se

本版是目前最新最好最快的版本，请各位下载试用。

zhanglei1371

建议楼主学习下vsto，做成可安装的程序会更方便。

413191246se

谢谢老师！——现在有点儿怕了，昨天凌晨因卸载 MSVC2019 烦了，直接删除，后来恢复注册表，导致我的联想电脑 Win10 系统不启动了，最后下午 2 点携带机箱到 联想 3C 服务中心 搞了一个半小时才重装系统满血复活，还好，是免费的（要是今天上门来服务，要收费119元）。——恐怕最近，我是一直要学习系统重装了！

gaolzhen

这个太棒了

dengcaimao

功能很多，不错

413191246se

* 宏列表中有 3 个 LoopFolder 宏（2019版），汉语意思是：循环遍历文件夹（及子文件夹），实测证实，无论是在 Word2003 还是在 Word2019 中，均是有效、管用、正确无误的，可以任意选用一个来用（cuanju 老师的代码未收录，因为觉得行数太多了，Sorry!）。
  
* 最近，我也看出来了，重装系统并不难，难的是，硬盘分区！（分区表/分区引导记录/分区表类型等，特别是最新的 Windows10 系统还使用了 UEFI 分区表，过去的 MBR 我还略懂，这新的就不太明白了。）