公文一键排版，看完你奶奶都会用

在机关单位上班，肯定免不了要写公文，那么经常要花大量时间为公文进行排版是一件很头痛的事，那么，有没有一键就能解决排版的办法了。用VBA代码实现这个功能是可行的。看完这篇文章，你奶奶都会了。不但快速，还符合《党政机关公文格式国家标准》（GB/T9704-2012）。

​我想到了一个用VBA解决这个问题的办法，真正实现一键搞定排版问题，让你的职业生涯中，不再为公文排版花费更多的时间。

通过不断的调试终于实现了以下排版功能：

• 自动设置页面和字体格式

• 自动去除所有空格

• 自动替换英文标点为中文标点（包括但不限于头疼的六角括号，包括数字序号1、2、3、自动转换成1.2.3.）

• 自动设置各级标题格式（包括自动识别正文主标题，一级、二级，三级、四级标题，并按标准进行设置格式）

• 自动识别主送单位后左对齐

• 自动识别并加粗“一是”“二是”等关键词

• 设置页码格式（奇数页在右，偶数页在左）

• 删除页眉横线

• 自动设置公文落款（日期右空四个字符，发文机关署名自动根据字数对中发文日期）

• 自动识别附件并按要求设置格式（头疼的附件调整全部自动识别并调整好缩进，有序号的附件也完美缩进）

来看看实现的效果：

这是网上复制的一篇公开公文，没有用一键排版前的样子

只需要按一个快捷键，各级标题自动识别，按标准设置好

从网上复制过来的，没有处理过的文本

按了快捷键后，被处理过后的附件、署名（落款是对中的）、日期，页码都规规整整

还有其他如项目符号转文本，替换空格，三级四级标题的格式化，我就不一一展示了，有需要的请自行下载，真的能节省不少时间。网盘下载

​