办公WPS中自定义功能区按钮，对接JSA

cutebe · 发表于 2026-6-13 11:37:12

本帖最后由 cutebe 于 2026-6-13 16:47 编辑

文件名：自定义功能区.xlsm
目录结构：内部文件一：_rels\.rels；内部文件二：customUI\customUI.xml //重要文件两个

查看方法：
方法一：改扩展名为.zip，用解压软件打开；
方法二：用Ribbon XML Editor v9.4汉化版打开，直接显示。

内部文件说明：
第一点：内部文件名：.rels
类型为功能扩展：Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility"
界面文件路径为：Target="customUI/customUI.xml" //第二点有说明

<?xml version="1.0" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
<Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Id="customUI2007RelID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
</Relationships>

复制代码

第二点：内部文件名：customUI.xml
界面文件：功能区自定义一个标签，下含三个按钮。其中第一个按钮与函数关联

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="tba" label="自定义功能区标签" >
<group id="g1" label="组">
<button id="b1" label="按钮一" onAction="检测ffi" />
<button id="b2" label="按钮二" />
<button id="b3" label="按钮三" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

//代码JSA：WPS宏编辑器 //开发工具》查询代码

function 检测ffi(){测试外部函数接口ffi支持与否();}
function 测试外部函数接口ffi支持与否(){ //测试ffi支持与否
//支持ffi开始：WPS 12.1.0.23542 版本及以上
console.log(ffi); //若提示“引用错误：ffi is not defined”，则表示不支持！
//不支持原因：一、版本低；二、精简版删除了ffi或未开启。
}

复制代码

cutebe · 发表于 2026-6-13 11:42:23

//基础.xlam:.rels

<?xml version="1.0" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId2" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
<Relationship Id="rId5" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
<Relationship Id="rId4" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/custom-properties" Target="docProps/custom.xml"/>
</Relationships>

复制代码

//基础.xlam:customUI.xml

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab idMso="TabHome">
<group id="gBase" label="系统自带" insertBeforeMso="ShowClipboard">
<button id="btLoad" label="加载" onAction="加载常用便捷" size="large" imageMso="FillUp" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

//基础.xlam:JSA

function 加载常用便捷(){ //大按钮在开始标签末尾
let 常用便捷加载项=Application.AddIns.Add("D:\\Program Files (x86)\\功能区\\功能区JSA\\常用便捷.xlam"); //添加到列表
常用便捷加载项.Installed=true; //打勾
}
function 卸去常用便捷(){
let 常用便捷加载项=Application.AddIns.Item("常用便捷");
常用便捷加载项.Installed=false; //不打勾
}

复制代码

//常用便捷..xlam:.rels

<?xml version="1.0" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId2" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
<Relationship Id="rId5" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
<Relationship Id="rId4" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/custom-properties" Target="docProps/custom.xml"/>
</Relationships>

复制代码

//常用便捷.xlam:customUI.xml

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab idMso="TabHome">
<group idQ="gBase" label="系统自带">
<button idMso="ViewCode" label="代码查看" insertBeforeQ="btLoad" size="large" />
</group>
</tab>
<tab id="tab1" label="常用便捷">
<group id="sys" label="系统组">
<button idMso="ViewCode" label="查看代码" size="large" />
<button idMso="AlignCenter" label="水平居中" />
<button idMso="MergeCenter" label="合并居中" />
<button idMso="AlignMiddleExcel" label="垂直居中" />
</group>
<group id="g2" label="定制组">
<button id="b21" label="六位编码居中" onAction="六位编码居中" />
<button id="b22" label="新增黄底红字" onAction="新增黄底红字" />
<button id="b22" label="单元格不换行" onAction="单元格不换行" />
</group>
<group id="g3" label="检验组">
<button id="b31" label="外部函数接口" onAction="测试外部函数接口ffi" />
<button id="b32" label="检验条码" onAction="检验条码" />
<button id="b33" label="检验追溯码" onAction="检验追溯码" />
<button id="b34" label="卸去" onAction="卸去常用便捷" size="large" imageMso="FillDown" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

//常用便捷.xlam:JSA

function 六位编码居中(){
var 选区=Selection;
选区.NumberFormat="000000"; //六位数字格式
选区.HorizontalAlignment=-4108; //水平居中
选区.VerticalAlignment=-4108; //垂直居中
}
function 新增黄底红字(){
选区=Selection;
选区.Value2="新增";
选区.Font.Color=0xFF; //红色
选区.Interior.Color=0xFFFF; //黄底
}
function 单元格不换行(){
选区=Selection; //取消水平两端对齐（-4130）
if(选区.HorizontalAlignment==-4130){选区.HorizontalAlignment=1;}
选区.WrapText=0; //取消自动换行
}
function 测试外部函数接口ffi(){ //测试ffi支持与否
//支持ffi开始：WPS 12.1.0.23542 版本及以上
console.log(ffi); //若提示“引用错误：ffi is not defined”，则表示不支持！
//不支持原因：一、版本低；二、精简版删除了ffi或未开启。
}
function 检验条码(){
alert("条码13位，“69”开头");
}
function 检验追溯码(){
alert("追溯码20位，“8”开头，前七位为识别码");
}
function 卸去常用便捷(){ //方便修改功能区按钮
let 常用便捷加载项=Application.AddIns.Item("常用便捷");
常用便捷加载项.Installed=false; //不打勾
}

复制代码

cutebe · 发表于 2026-6-13 15:33:37

函数JS

function 随机整数(起始数,终止数){
return Math.floor(Math.random()*(终止数-起始数+1))+起始数;
}

复制代码

cutebe · 发表于 2026-6-13 15:35:27

一个一个小功能

function 设置剪贴板文本(文本内容){ //参数为字符串
let 执行宏调用=ExecuteExcel4Macro; //调用系统应用接口。简化书写
if (执行宏调用(`CALL("User32","OpenClipboard","AJ",0)`)){ //打开剪贴板
if(执行宏调用(`CALL("User32","EmptyClipboard","A")`)){ //清空剪切板
const 内存句柄=字符串到内存(文本内容); /*-----调用函数-----*/
if(内存句柄){ //console.log("内存块大小："+执行宏调用(`CALL("Kernel32","GlobalSize","JJ",${内存句柄})`));
let 剪贴板文本=执行宏调用(`CALL("User32","SetClipboardData","JJJ",1,${内存句柄})`);
执行宏调用(`CALL("Kernel32","GlobalFree","JJ",${内存句柄})`); //释放内存
}else{console.log("未能分配内存！");} //数据放入剪切板，参数为1（CF_TEXT）则返回文本
}else{console.log('未能清空剪贴板！');}
执行宏调用(`CALL("User32","CloseClipboard","A")`); //关闭剪贴板，以释放控制权。
}else{alert('无法打开剪贴板！');}
}
function 获取剪贴板文本(){ //返回字符串
const 执行宏调用=ExecuteExcel4Macro;
if(执行宏调用(`CALL("User32","OpenClipboard","JJ",0)`)){ //打开剪贴板
const 内存句柄=执行宏调用(`CALL("User32","GetClipboardData","JJ",1)`); //获取剪贴板文本，返回句柄。
if(内存句柄){ //锁定全局内存对象，获取内存地址
var 剪贴板文本=内存取字符串(内存句柄); /*-----调用函数-----*/
}else{console.log("未能获取剪贴板数据的内存句柄！");}
执行宏调用(`CALL("User32","CloseClipboard","J")`); //关闭剪贴板，让其它应用可以使用剪贴板
return 剪贴板文本; //返回字符串
}else{alert('无法打开剪贴板！');}
}
function 字符串到内存(字符串){ //返回内存句柄
const 执行宏调用=ExecuteExcel4Macro;
let 分段文本=[],分段字节=[],总字节=0,段长度=127; //可申请256字节内存，结束符1字节，汉字最长127
for(let 起始=i=0;起始<字符串.length;起始+=段长度,i++){
分段文本.push(字符串.slice(起始,起始+段长度));
分段字节.push(分段文本[i].replace(/[^\x00-\xff]/g,'xx').length); //一个汉字占两个字节
总字节+=分段字节[i];
} //分配内存 //分配GlobalAlloc对应销毁GlobalFree //分配LocalAlloc对应销毁LocalFree
const 内存句柄=执行宏调用(`CALL("Kernel32","GlobalAlloc","JJJ",${0x42},${总字节+1})`);
if(内存句柄){ //内存分配成功，然后锁写解内存。 //锁定全局内存对象，会返回其内存地址
const 内存地址=执行宏调用(`CALL("Kernel32","GlobalLock","JJ",${内存句柄})`);
for(let 偏移字节=i=0;i<分段文本.length;i++){ //字符串（JS变量）分批复制到刚申请的内存中。分批是因为有限长
执行宏调用(`CALL("Kernel32","lstrcpynW","JJFJ",${内存地址+偏移字节},"${分段文本[i].replace(/\"/g,'\"\"')}",${分段字节[i]})`);
偏移字节+=分段字节[i]; //返回地址J。 //字符串中含双引号出错，因此替换成单引号
}
执行宏调用(`CALL("Kernel32","GlobalUnlock","JJ",${内存句柄})`); //解锁全局内存对象，以释放资源
return 内存句柄;
}else{console.log("未能分配内存！");}
}
function 内存取字符串(内存句柄){ //返回字符串
const 执行宏调用=ExecuteExcel4Macro,段长度=127;
const 内存地址=执行宏调用(`CALL("Kernel32","GlobalLock","JJ",${内存句柄})`); //锁定，获取内存地址
if(内存地址){
const 总字节=执行宏调用(`CALL("Kernel32","lstrlenA","JJ",${内存地址})`); //内存文本字节数
let 偏移字节=0,文本字符串=分段文本='';
while(偏移字节<总字节){ //返回字符串F。 //返回超255字节时，也需要分段操作
分段文本=执行宏调用(`CALL("Kernel32","lstrcpynW","FFJJ","",${内存地址+偏移字节},${段长度})`);
//偏移字节+=执行宏调用(`CALL("Kernel32","lstrlenA","JC","${分段文本.replace(/["\n]/g,'x')}")`);
偏移字节+=分段文本.replace(/[^\x00-\xff]/g,'xx').length; //计算字符串字节数
//偏移字节+=执行宏调用(`LENB("${分段文本.replace(/"/g,'x')}")`);
文本字符串+=分段文本;
} //解锁全局内存对象，以释放资源
执行宏调用(`CALL("Kernel32","GlobalUnlock","JJ",${内存句柄})`);
return 文本字符串;
}else{console.log("未找到内存地址！");}
}

复制代码

cutebe · 发表于 2026-6-13 15:36:36

单个WinAPI函数对应一个JS函数

function 打开剪贴板(){
const 执行宏调用=ExecuteExcel4Macro;
let 打开结果=执行宏调用(`CALL("User32","OpenClipboard","AJ",0)`);
return 打开结果; //if(打开结果){console.log("成功打开剪贴板！");}else{console.log("剪贴板打开失败。");}
}
function 清空剪贴板(){
const 执行宏调用=ExecuteExcel4Macro;
let 清空结果=执行宏调用(`CALL("User32","EmptyClipboard","A")`);
return 清空结果; //if(清空结果){console.log("成功清空剪贴板！");}else{console.log("剪贴板清空失败。");}
}
function 设置剪贴板(数据格式,数据句柄){
const 执行宏调用=ExecuteExcel4Macro; //数据格式：位图2 文本1 统一文本0xD=13
let 数据内存句柄=执行宏调用(`CALL("User32","SetClipboardData","JJJ",${数据格式},${数据句柄})`);
return 数据内存句柄; //if(数据内存句柄){console.log("成功设置剪贴板！");}else{console.log("剪贴板设置失败。");}
}
function 关闭剪贴板(){
const 执行宏调用=ExecuteExcel4Macro;
let 关闭结果=执行宏调用(`CALL("User32","CloseClipboard","A")`);
return 关闭结果; //if(关闭结果){console.log("成功关闭剪贴板！");}else{console.log("剪贴板关闭失败。");}
}

复制代码

cutebe · 发表于 2026-6-17 17:19:05

自动入库[庚午].zip (7.87 KB)

//自动入库.JS
//版本庚午
//问题：[有重复代码]
/*更新：整理简化注释。
旧：
9、增加部分验证单据自动入库。
8、简化单据显示信息，只显示单据号、单位、日期等。
7、修正：部分分组不会选择。
6、修正：整页都是已入库而未验证状态时，会卡在勾选处。
5、监听与触发条件：切换标签触发。
4、查询后，先检查有无入库单据。
3、查询条件：从两年前到一周前，验证状态为未验证。
2、定位到最后一页，从最老的单据开始入库，逐页向前。
1、验证日期判断整理简化；添加干支查询表。
*/
/*干支表
01.甲子 02.乙丑 03.丙寅 04.丁卯 05.戊辰 06.己巳 07.庚午 08.辛未 09.壬申 10.癸酉
11.甲戌 12.乙亥 13.丙子 14.丁丑 15.戊寅 16.己卯 17.庚辰 18.辛巳 19.壬午 20.癸未
21.甲申 22.乙酉 23.丙戌 24.丁亥 25.戊子 26.己丑 27.庚寅 28.辛卯 29.壬辰 30.癸巳
31.甲午 32.乙未 33.丙申 34.丁酉 35.戊戌 36.己亥 37.庚子 38.辛丑 39.壬寅 40.癸卯
41.甲辰 42.乙巳 43.丙午 44.丁未 45.戊申 46.己酉 47.庚戌 48.辛亥 49.壬子 50.癸丑
51.甲寅 52.乙卯 53.丙辰 54.丁巳 55.戊午 56.己未 57.庚申 58.辛酉 59.壬戌 60.癸亥*/
//let 操作全区=document.getElementById('armsTraceFlag'); //document.querySelector('div#armsTraceFlag.content > div.upout-bill-entry');
//let 标签区=操作全区.querySelector('div[role="tablist"].ant-tabs-top-bar');
//let 操作面板区=操作全区.querySelector('div[role="tabpanel"].ant-tabs-tabpane');
//let 查询区=操作面板区.querySelector('div.upPutBill-common-wrap > div.table-and-search-layout-search > form');
//let 查询条件区=查询区.querySelector('div.expanded > div[data-spm-anchor-id].ant-row');
//let 查询按钮区=查询区.querySelector('div.ant-form-item > div > div.ant-form-item-control > span > div.tracev3-search-form-button');
//let 表单区=操作面板区.querySelector('div.table-and-search-layout-table > div');

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[转载代码] 办公WPS中自定义功能区按钮，对接JSA

评分

基础中设置加载按钮，方便添加/修改界面功能

未调用WinAPI代码

调用WinAPI的小功能代码

调用WinAPI基础小单元

浏览器控制台自动入库/JS

评分

[转载代码] 办公WPS中自定义功能区按钮，对接JSA

评分

基础中设置加载按钮，方便 添加/修改 界面功能

未调用WinAPI代码

调用WinAPI的小功能代码

调用WinAPI基础小单元

浏览器控制台自动入库/JS

评分

基础中设置加载按钮，方便添加/修改界面功能