分享时间 | 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 |