Word2003 & 2007 VBA 自动排版宏（集成版）2019-7-9

413191246se

* 推荐：请前往下载最新版本《Word2003 & 2007 VBA 通用模板宏（极速版）2019-8-15》。

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

* 排版热键——F7：普通    F8：公文
   
* 不能下载的朋友，请给我写信，我的邮箱：ln1400014884@163.com
   
* 时间仓促，水平有限，不足之处，敬请见谅！谢谢大家！
  
* 下载链接：https://share.weiyun.com/58Z6Tgn

补充内容 (2020-7-26 13:44):
本帖作废！请大家下载最新2020-7-14或2020-7-19的《金秋版》！

413191246se

略。。。。

413191246se

腾讯微云不登录又能下载了！最近几天我考虑重新优化代码，结果发现，速度不如现在发布的好。

陈王宇翔

总是提示由于宏安全设置，无法找到宏或宏已被禁用，这个要怎么解决

413191246se

楼上朋友，不知道你用的是哪个版本 Word，能否录制一个宏呢？能否设置其安全性为高中低呢？
我的 Word2003 默认设置为“高”，能使用很多宏代码。不使用宏的话，会失去很多乐趣的。请再试试。

413191246se

* 标题自动编号：自动排版后，文档各个标题级别（指标题2345这四级）除了自动设置相应样式格式外，也已经自动调整了编号（拟稿时标题四个级别，比如标题2，可以一直打一、AA。一、BB。一、CC。排版后会自动变为：一、AA。二、BB。三、CC。同理，标题4可以一直打1、XX。1、XX。1、XX。排版后会自动变为：1．XX。2．XX。3．XX。），一般情况下无需人工校对检查（但也不排除有些情况下编号不正确）。

* 标题级别：
标题 2：形如“一、XX”
标题 3：形如“（一）XX”
标题 4：形如“1、XX”或“1.XX”或“1．XX”（标点有三种：顿号、小数点、齐线墨点——均自动调整为．）
标题 5：形如“（1）XX”（半角括号会自动替换为全角括号）

* 目录：排版后可以插入目录，但请先将标题一区域剪切掉，插入目录后再粘贴回来。
* 落款：格式必须是阿拉伯数字、年月日齐全的日期，如：“2019年7月24日”。

413191246se

* 各位朋友，我的代码虽然标明是 Word2003 和 2007，但实际上 Word2010/2013/2016/2019 可能也大部分代码适用，所以，我希望各位使用高版本 Word 的朋友们，不要望而生畏，可以试试我的代码。

* 引用代码的方式有两种：一是直接导入（确信本机宏列表中无代码，为空时；最好是先在 C 盘删除所有找到的 Normal.dotm 空白通用模板）；二是先录制一个宏 Macro1，然后找到它，在它下面粘贴上我的代码（但我的代码第一行请删除，那是导入代码时需要的）。

* 然后再本机化试用即可（导入后要退出一次，再重新进入WORD才行，最好是先学习一下使用说明）。

413191246se

* 提供一个看图小软件，截图、设置桌面，很方便，这是一个瑞典大学生写的： iview425.rar (446.74 KB, 下载次数: 75)

2019-7-27 14:35 上传

点击文件名下载附件

413191246se

* 各位朋友，我的代码，虽然在超大文本排版时，力不从心，但在日常工作中小文档基本能一键快速自动排版，我还是很欣慰的。

* 另外，我建议一些新人朋友们，可以在 VBE 中按 F8 键逐行进行调试，了解排版流程，同时学到一些语法用法，不知道有这样的朋友没有，从我的代码中学到了一些知识？

* 比如：有些朋友，可能未使用我的代码，即使使用了我的代码，但不了解“辅助”菜单中有一些宏，还是比较有用的，如：《第一章》宏，可以自动对全文的“第X章”、“第X节”进行格式设置；《证书自动编号》宏，可以对证书数据源中的证书编号自动编号，并且自动整理各个字段列中的数据；《证书编号热键》宏，按 F3 键即可在邮件合并证书后形成的合并文档中对每页的证书第 2 行进行行数调整，因为证书第 2 段要是 3 行不好打印，最好是 2 行，所以此宏特别有用；《证书表格合并》，不管是对证书表格，对简单的表格也能合并；《人民币中文大写》宏及《千分位》宏……

413191246se

3月22日帖子已经作废！——本帖（7月9日）是最新帖子。