WPS公文一键排版

WPS公文一键排版 公开 已发布

大优大优 分享于 2024-03-15 00:31 | 0 | 79
如何安装动作?

适用于
分类(旧)
文本处理 文件处理 组合操作



更多信息
分享时间 2024-03-15 00:31
最后更新 2024-03-15 00:31
修订版本 0
用户许可 可自己使用或修改,不可再分享
Quicker版本 1.42.15
动作大小 6.1 KB

分享到

「一键设置公文字体、大小、行距、首行缩进、页边距、页码等」

简介

因为经常要自己排版公文,之前试过JSA,实现了功能,但在Quicker里尝试后,感觉更加便捷。

自用,大家感觉好用的话也可以拿来用。

PS:我主要使用的【多步骤输入】模块结合【模拟按键B(参数)】的实现方式,

启动前,注意把输入法切换为【英文】状态。

如果不喜欢这点的话,可前往其他作者的【模拟按键A(录入)】实现的动作。

参考:wps公文格式 - by alw - 动作信息 - Quicker (getquicker.net)


排版内容如下:

- 设置段落:行间距28.5磅,首行缩进2字符

- 设置正文:仿宋_GB2312(英文是Times New Roman),常规,三号

- 设置标题:方正小标宋简体,常规,二号;

- 设置页边距:上下3.7厘米,左右2.8厘米;

- 设置版式:页边距页面、页脚2cm;

- 插入页码:右下角,- 1 - 的样式

(未实现)页码字体为宋体,四号

 实际操作中是要点进去页码,选中再编辑,我还没有想到该如何处理。
大家如果有好的建议,欢迎留言,谢谢~


如果有小伙伴懂JSA的话,也欢迎尝试我写的JSA一键排版代码:

/**
 * 排版 Macro
 * 宏由 大优大优 编写,时间: 2024/02/01
 */
function 排版()
{
Selection.WholeStory();
Selection.Range.WholeStory();
ActiveDocument.Range(0, 20).Start = 20;
ActiveDocument.Range(20, 20).End = 20;
// 首行缩进2字符
(obj=>{
obj.CharacterUnitFirstLineIndent = 2;
obj.FirstLineIndent = 0;
})(Selection.ParagraphFormat);
// 中文字体"仿宋_GB2312",西文字体"Times New Roman",大小为三号
(obj=>{
obj.Size = 16;
obj.NameFarEast = "仿宋_GB2312";
obj.NameAscii = "Times New Roman";
obj.NameOther = "Times New Roman";
})(Selection.Font);
// 页间距上下3.7cm,左右2.8cm
(obj=>{
obj.TopMargin = 104.881050;
obj.BottomMargin = 104.881050;
obj.LeftMargin = 79.369446;
obj.RightMargin = 79.369446;
})(Selection.Range.PageSetup);
// 版式页眉页脚距边界2cm
(obj=>{
obj.HeaderDistance = 56.692001;
obj.FooterDistance = 56.692001;
})(ActiveDocument.PageSetup);
// 首行标题"方正小标宋简体",二号,居中,不缩进
(obj=>{
obj.Name = "方正小标宋简体";
obj.Size = 22;
obj.SizeBi = 22;
})(ActiveDocument.Paragraphs.Item(1).Range.Font);
// 首行缩进2字符
(obj=>{
obj.Alignment = wdAlignParagraphCenter;
obj.CharacterUnitFirstLineIndent = 0;
obj.FirstLineIndent = 0;
})(ActiveDocument.Paragraphs.Item(1).Range.ParagraphFormat);
Selection.WholeStory();
Selection.Range.WholeStory();
ActiveDocument.Range(0, 20).Start = 20;
ActiveDocument.Range(20, 20).End = 20;
// 行距28.5磅;
(obj=>{
obj.LineSpacingRule = wdLineSpaceExactly;
obj.LineSpacing = 28.500000;
})(Selection.ParagraphFormat);
}



最近更新

修订版本 更新时间 更新说明
0 2024-03-15 00:31

最近讨论

暂无讨论