公文格式化

公文格式化 非公开

如何安装动作?

适用于
分类
文本处理
lofter thxing 141包子 CL law9501 5 人赞了这个动作

1 个动作单 收藏了此动作。

更多信息
分享时间 2022-11-24 16:45
最后更新 2022-12-06 13:47
修订版本 11
用户许可 -未设置-
Quicker版本 1.36.5
动作大小 121 KB

分享到

「根据公文国标,利用VBA格式化公文(请安装新版本"公文排版")」

简介

此动作已不再更新,请下载本人编写的新版本"公文排版",已全面支持WORD和WPS

最近更新

修订版本 更新时间 更新说明
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辅助功能,所以心血来潮,现学现卖。程序代码存在问题在所难免,如有问题请及时反馈给我,我会尽量修复。

最近讨论

使用问题 · 149
蜀于 2022-12-02 14:51 臭冬瓜 2022-12-05 18:51