里仿宋字体变成fangsong_VBA实现公文一键排版（页面、段落、字体、页码）

2020年8月27日更新代码：

1.解决了非段首出现的"数字.XX”内容被加粗的问题

2.楷体字体加粗

如何设置宏快捷键（以word2013为例）：

1. 点击文件——选项，弹出界面
2. 选择自定义功能区
3. 选择键盘快捷键，点击自定义
4. 在指定命令>类别中，找到宏，选择右边的要设置快捷键的宏，这里选择“公文格式排版”
5. 在请按新快捷键中按键盘设置快捷键，这里我用的是ctrl+1
6. 在界面下方点击指定
7. 点击关闭

这样，在文档里按住ctrl+1时，文章就会自动排版，不用再从宏菜单中找了。

---

说明：

一、页面

页边距下方的上、下、左、右参数值分别设置为3.7、3.5、2.8和2.6

二、段落

1. 左对齐
2. 行距固定1.5
3. 首行缩进2个字符

三、标题

1. 居中
2. 字体为方正小号宋简体
3. 大小为2号

注意：文档标题与下方的正文必须间隔两个回车标记，以便让程序识别。

四、正文及标题

1. 正文字体为仿宋_gb2312，三号
2. 一级标题：黑体，三号
3. 二级标题：楷体，三号
4. 三级标题：仿宋_gb2312，三号，加粗

五、页码（比较简单）

1. 仿宋字体
2. 大小15
3. 居中

六、使用方法（适用于word 2007以上）：