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

cutebe · 发表于 5 小时前

本帖最后由 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 · 发表于 5 小时前

//基础.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 · 发表于 1 小时前

函数JS

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

复制代码

cutebe · 发表于 1 小时前

一个一个小功能

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 · 发表于 1 小时前

单个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("剪贴板关闭失败。");}
}

复制代码

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

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

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

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

未调用WinAPI代码

调用WinAPI的小功能代码

调用WinAPI基础小单元

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

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

未调用WinAPI代码

调用WinAPI的小功能代码

调用WinAPI基础小单元

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