| 修订版本 | 更新时间 | 更新说明 |
|---|---|---|
| 11 | 2022-12-06 13:47 | 现在，"公文排版"可以完全支持WORD和WPS了！！！请安装我新发布的"一键排版"动作，本"公文排版"本动作不再更新！ 安装"一键排版"动作须知： 首先要安装VBA，然后按照"设置Office、WPS以允许从外部执行VBA代码"（文章链接：https://getquicker.net/KC/Kb/Article/1049）来做好相应设置。 |
| 10 | 2022-12-05 18:37 | 由于WPS的查找替换功能不支持正则表达式，所以公文排版中的标题格式化和要素格式化功能无法使用，为此改写了相关模块，并将标题格式化和要素格式化整合到一起。（PS：只修改了"一键排版"模块，快捷菜单子功能没有修改，以后计划全部取消，只保留一键排版功能。） 由于使用的是VBS正则表达式，所以速度没有原来的快，不过全面兼容WPS。由于Quicker的OFFICE辅助模块功能只能用于OFFICE，所以使用WPS的朋友需要自己将相关VBA代码添加到程序模块中。 【更新】 1.一键排版全部调用VBS的正则表达式，全面兼容WPS 2.支持自动编号的标题识别。（已知问题：如果一个段落全部是标题，自动编号也可以设置成相应的格式；但如果只是段落的第一个句子，自动编号无法自动设置成相应格式） 3.增加对法律法规文本中"章""节"的支持： （1）【章】例如：第一章，支持四位，黑体三号 （2）【节】例如：第一节，支持四位，宋体三号加粗 4.增加对印发单位的识别：印发单位+日期，仿宋四号 5.执行一键排版前增加提示确认 6.对于一级标题且两行以内，使用孤行控制和与下段同页，使得公文排版更加美观 7.可以为抄送和印发机关日期添加上下框线（已知问题：当两者都存在时，只有上下框线，两者之间的横线没有显示） PS：经测试，同样的代码在WPS下运行比WORD快多了！！！ |
| 9 | 2022-12-01 20:34 | ★比较全面地完成了公文排版功能（应该不会再增加功能了） 此次更新内容： 一、字体格式化功能一分为三 昨天在网上查阅资料，才知道VB可以直接调用VBSCRIPT.REGEXP对象，之前的一些问题就能够迎刃而解了。为此，又重新编写字体格式化部分的代码，形成三个功能： 1.字体格式化功能：所有文字设置为公文正文格式（仿宋、三号） 2.标题格式化功能：能够识别四级标题、段内2种子标题和"（）"内说明文字 3.要素格式化功能：能够识别公文的主要要素并按相关要求排版，包括份数、密级、紧急程度、附件（不是附件列表，那个排版太复杂）、文号、文章标题、文章副标题、姓名（4字以内，空格也算1个字）、带括号的日期（类似副标题）、不带括号的日期（发文日期）、附注、抄送等等。 二、一键排版功能将所有相关代码整合到一起，一次性完成公文排版功能。包括：页面设置、段落设置、字体设置、标题识别、要素识别和添加页码。 PS：因为本人不会VB也不会C，只是看到Quicker有OFFICE辅助功能，所以心血来潮，现学现卖。程序代码存在问题在所难免，如有问题请及时反馈给我，我会尽量修复。 |
| 8 | 2022-11-30 18:02 | 基本完成字体格式化功能（其实昨天已基本完成，结果电脑出问题了，代码全部重写:(~~~晕死） 1.将原字体格式化与标题格式化功能整合，一次完成 2.通过添加特殊分隔符，解决WORD正则表达式不支持行首参数（类似^） 3.通过自动删除段落首尾空白符，解决WORD正则表达式不支持空白参数的问题（类似^） 4.将自动编号转化为文字，用于自动识别各级标题（PS：喜欢使用自动编号功能的朋友无法使用字体格式化功能，SORRY） 【说明】字体格式化已包括对正文、各级标题和说明文字的支持 （1）正文：仿宋，三号 （2）文章标题：方正小标宋简体，二号 （3）文章副标题（有三种形式）：楷体，三号 一是以"——"开头的且无句子结尾标点 二是段落内只有2-4个字，主要用于识别人名（PS：如文章标题是4字以内将无法识别，例如"个人总结"） 三是段落内为"（日期）" （4）主送：仿宋，三号 （5）一级标题：黑体，三号，两位编号 （6）二级标题：楷体，三号，两位编号，可识别"()""（）" （7）三级标题：仿宋，三号，两位编号，可识别"、"".""．" （8）四级标题：仿宋，三号，两位编号，可识别"()""（）" （9）段内子标题（有两种）： 一是以"——"开头的且有句子结尾标点 二是"一是""二是"...，一位编号 （10）说明文字：楷体，三号；指"（）"的文字，要求3字以上，用于排除二级标题和四级标题 PS：并于公文中有可能使用会着重号、下划线、删除线、上下标等特殊文字属性，因此未清除相关属性 【已知问题】 （1）经测试，WORD本身的替换功能就无法实现改变段落设置，虽然相关代码我已完成，但是不起作用（我无能为力了） （2）通过添加特殊分隔符解决WORD正则表达式不支持行首参数（类似^）的问题，但是在文档尾会增加一个空段落。希望哪位大神可以帮助解决一下，THX！ 另外，优化了"创建公文样式"代码，方便修改。 |
| 7 | 2022-11-28 21:41 | 1.由于一键排版前的确认，造成执行代码提示窗口无法在最前端弹出，因此暂时取消确认环节 2.修改由于过度注释造成个别语句未被执行的BUG 3.修补完善自动识别标题 4.子标题增加一种形式：以段落破折号"——"开头的首句设为三号楷体 5.除子标题外的标题段落设置为"与下段同页"（防止标题与相关内容分离） PS：之前更新说明中有一错误："孤行控制"应该是"与下段同页" |
| 6 | 2022-11-28 19:03 | 重发 |
| 5 | 2022-11-28 19:01 | 一、增加格式化页眉页脚 1.删除所有页眉页脚 2.设置页码： （1）页码有两种样式：一是文本框页码（便于进行特殊排版）；二是非文本框页码 （2）页码摆放有两个位置：一是居中；二是设置奇偶页并居外侧（用于双面打印） PS：由于Quicker无法代入参数（也可能是我不会，请哪位大侠指导），所以不能自动选择。 可自己手动修改代码：参数1 isTextBox 布尔型，表示是否使用文本框页码（默认：否） 参数2 isCenter 布尔型，表示是否居中（默认：是，否 = 奇偶页外侧） 二、增加标题格式化 一级标题："一、"，三号黑体，编号两位以内 二级标题："（一）"，三号楷体，"（）"不区分全角半角，编号两位以内 三级标题："1."，三号仿宋，"."不区分全角半角，编号两位以内 四级标题："（1），三号仿宋，"（）"不区分全角半角，编号两位以内 段落内子标题："一是"，三号仿宋加粗（我的同事喜欢用，国标中没规定），编号一位以内 已知问题： （1）WORD正则表达式只支持表示含1个以上的字符，不支持表示含0个以上的字符 例如：0个以上的字母正则表达式应为[a-z]{0,}或[a-z]*，但WORD只能1个以上[a-z]{1,} （2）WORD不使用通配符时，空白可以用^w表示，但是在使用正则表达式时无法表示空白， PS：由于上面（1）（2）两个问题，造成标题必须居段落行首，才能自动识别。 （3）暂时不能自动识别WORD的自动编号。 以上问题也可能是我不会，不吝赐教。 三、增加创建公文样式 主标题样式名称：公文标题；字号：二号，字体：方正小标宋_GBK（我只有这个字体），段落居中，孤行控制 副标题样式名称：公文副标题；字号：三号，字体：楷体，段落居中，孤行控制 一级标题样式名称：公文标题1；字号字体同标题格式化，首行缩进2个字符，两端对齐，孤行控制 二级标题样式名称：公文标题2；其他同上 三级标题样式名称：公文标题3；其他同上 四级标题样式名称：公文标题4；其他同上 正文样式名称：公文正文；字号：三号，字体：仿宋，首行缩进2个字符，两端对齐（无孤行控制） PS：如果你会使用样式，你将会更加容易进行排版 四、其他改进 1.执行全部格式化功能（一键排版）前增加确认 2.优化代码，提高执行效率 3.增加大量注释 |
| 4 | 2022-11-25 20:53 | 保留并优化原来的"字体格式化"功能（只能通过右键菜单选择单独运行） |
| 3 | 2022-11-25 18:56 | 重发 |
| 2 | 2022-11-25 18:56 | 1.增加更多的注释，自行修改更加方便 2.增加去除所有空页空行和段落首尾空格 3.增加去除所有段落和字体格式（只能单独执行） 计划： 1.设置页面页脚 2.识别标题并设置相应格式 |
| 1 | 2022-11-24 18:18 | 一、页面格式化 1.纸张：A4，纵向 2.上空：3.7cm，下空：3.5cm，左空：2.8cm，右空：2.6cm 3.顶端对齐，无网格 二、段落格式化 1.首行缩进：2个字符，两端对齐 2.行距：固定值，28磅 3.正文文本 三、字体格式化 1.所有宋体或者仿宋_GB2312 -> 仿宋 2.所有楷体_GB2312 -> 楷体 3.所有数字字体 -> 新罗马 4.所有字母字体 -> 新罗马 5.字号：三号 PS： 1.没有设置选区为对整个文档操作。 2.右键菜单有：全部格式化、页面格式化、段落格式化、字体格式化 |
| 0 | 2022-11-24 16:45 |
京公网安备 11010502053266号