办公WPS的JSA中操作剪贴板文本

cutebe · 发表于 2026-3-24 16:59:58

本帖最后由 cutebe 于 2026-3-30 10:33 编辑

使用方法 //JS代码，WPS的JSA宏

var 剪贴板文本=获取剪贴板文本();
var 修改文本="新文本：\n"+ 剪贴板文本 +"\n字符串结束！";
设置剪贴板文本(修改文本); //新文本放入剪贴板，可粘贴使用

复制代码

//在WPS中使用ExecuteExcel4Macro宏调用CALL，限制字符串类型的参数限长255字节。
//一个汉字占2个字节 //参数为字符串时需要引号包起，且类型必须用F。
//let 文本字节长度=执行宏调用(`CALL("kernel32","lstrlenA","JF","${文本内容}")`);
//使可以处理双引号"而不提示错误
//let 文本字节长度=执行宏调用(`CALL("kernel32","lstrlenA","JF","${文本内容.replace(/["]/g,'x')}")`);
//let 文本字节长度=执行宏调用(`CALL("kernel32","lstrlenA","JF","${文本内容.replace(/\"/g,'y')}")`);
//let 文本字节长度=执行宏调用(`CALL("kernel32","lstrlenA","JF","${文本内容.replace(/"/g,'z')}")`);
//参数为（字符串所在的）内存地址时不限制
//let 文本字节长度=执行宏调用(`CALL("Kernel32","lstrlenA","JJ",${内存地址})`);

设置剪贴板文本("字符串");

function 设置剪贴板文本(文本内容){ //参数为字符串
let 执行宏调用=ExecuteExcel4Macro; //调用系统应用接口。简化书写
let 分段文本=[],段长度=127,分段字节=[],总字节=0; //去掉结束符\0，双字节文字最长127
for(let 起始=i=0;起始<文本内容.length;起始+=段长度,i++){
分段文本.push(文本内容.slice(起始,起始+段长度));
分段字节.push(分段文本[i].replace(/[^\x00-\xff]/g,'xx').length); //计算字节数
总字节+=分段字节[i];
} //console.clear(); //清空立即窗口（控制台）信息
if (执行宏调用(`CALL("user32.dll","OpenClipboard","AJ",0)`)){ //打开剪贴板
if(执行宏调用(`CALL("user32.dll","EmptyClipboard","A")`)){ //清空剪切板
const 内存句柄=执行宏调用(`CALL("Kernel32","GlobalAlloc","JJJ",${0x42},${总字节+1})`); //分配内存
//console.log("内存块大小:"+执行宏调用(`CALL("Kernel32","GlobalSize","JJ",${内存句柄})`));
if(内存句柄){ //内存分配成功。然后锁、写、解内存。最后设置剪贴板。
const 内存地址=执行宏调用(`CALL("kernel32.dll","GlobalLock","JJ",${内存句柄})`); //锁定对象，返回地址
for(let 偏移字节=i=0;i<分段文本.length;i++){ //字符串（JS变量）分批复制到内存中。分批是因为有限长
执行宏调用(`CALL("Kernel32","lstrcpynW","JJFJ",${内存地址+偏移字节},"${分段文本[i].replace(/"/g,'""')}",${分段字节[i]})`);
偏移字节+=分段字节[i]; //返回地址J。
}
执行宏调用(`CALL("kernel32.dll","GlobalUnlock","JJ",${内存句柄})`); //解锁全局内存对象
let 剪贴板文本=执行宏调用(`CALL("user32.dll","SetClipboardData","JJJ",1,${内存句柄})`);
执行宏调用(`CALL("Kernel32","GlobalFree","JJ",${内存句柄})`); //释放内存
}else{console.log("未能分配内存！");} //数据放入剪切板，参数为1（CF_TEXT）则返回文本
}else{console.log('未能清空剪贴板！');}
执行宏调用(`CALL("user32.dll","CloseClipboard","A")`); //关闭剪贴板，以释放控制权。
}else{alert('无法打开剪贴板！');}
}

复制代码

var 字符串=获取剪贴板文本();

function 获取剪贴板文本(){ //返回字符串
let 内存地址,剪贴板文本="",执行宏调用=ExecuteExcel4Macro;
if(执行宏调用(`CALL("user32.dll","OpenClipboard","JJ",0)`)){ //打开剪贴板
const 内存句柄=执行宏调用(`CALL("user32.dll","GetClipboardData","JJ",1)`); //获取剪贴板文本，返回句柄。
if(内存句柄){ //锁定全局内存对象，获取内存地址
内存地址=执行宏调用(`CALL("kernel32.dll","GlobalLock","JJ",${内存句柄})`);
let 总字节,偏移字节=0,段长度=127,分段文本='';
总字节=执行宏调用(`CALL("Kernel32","lstrlenA","JJ",${内存地址})`); //剪贴板文本字节数
while(偏移字节<总字节){ //返回字符串F。返回值超255字节时，也需要分段操作
分段文本=执行宏调用(`CALL("Kernel32","lstrcpynW","FFJJ","",${内存地址+偏移字节},${段长度})`);
偏移字节+=分段文本.replace(/[^\x00-\xff]/g,'xx').length; //计算分段文本字节数
剪贴板文本+=分段文本;
}
执行宏调用(`CALL("kernel32.dll","GlobalUnlock","JJ",${内存句柄})`); //解锁
}else{console.log("未能获取剪贴板数据的内存句柄！");}
执行宏调用(`CALL("user32.dll","CloseClipboard","J")`); //关闭剪贴板，让其它应用可以使用剪贴板
return 剪贴板文本; //返回字符串
}else{alert('无法打开剪贴板！');}
}

复制代码

更新：2026-03-29
一、可处理双引号。原来有引号会提示错误并退出；.replace(/"/g,'""')
二、能处理超255字节文本。原字节数与字符串长度计算不匹配；
三、合并代码与简化注释。

cutebe · 发表于 2026-3-24 17:08:42

本帖最后由 cutebe 于 2026-3-30 15:32 编辑

适用于WPS支持ExecuteExcel4Macro的旧版本（还没有FFI与ffi的版本）。

执行ExecuteExcel4Macro宏调用时，字符串参数要加双引号包起："${字符串变量}"。这样当遇到字符串中有双引号时就会出错。
宏调用时会（按VBA的语法）将字符串中两个双引号解释成一个，所以写入时反过来替换即可："${字符串.replace(/["]/g,'\"\"')}"

以下字符串到内存，内存到字符串。能处理引号，不限于255字节。

function 字符串内存测试(){
let 字符串="字符串内存测试16\"字符串内存\"测试32\"字符串内存测试48字符串内存测试64";
let 新字符串='';
for(let i=0;i<4;i++){新字符串+=字符串+"\n";}
新字符串+=字符串;
const 内存句柄=字符串到内存(新字符串);
let 取得字符串=内存取字符串(内存句柄)+"\n结束！";
ExecuteExcel4Macro(`CALL("Kernel32","GlobalFree","JJ",${内存句柄})`); //释放内存
console.clear();console.log(取得字符串);
}
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",${2},${总字节+1})`);
if(内存句柄){ //内存分配成功，然后锁写解内存。 //锁定全局内存对象，会返回其内存地址
const 内存地址=执行宏调用(`CALL("kernel32.dll","GlobalLock","JJ",${内存句柄})`);
for(let 偏移字节=i=0;i<分段文本.length;i++){ //字符串（JS变量）分批复制到刚申请的内存中。分批是因为有限长
执行宏调用(`CALL("Kernel32","lstrcpynW","JJFJ",${内存地址+偏移字节},"${分段文本[i].replace(/\"/g,'\"\"')}",${分段字节[i]})`);
偏移字节+=分段字节[i]; //返回地址J。 //字符串中含双引号出错，因此替换成单引号
}
执行宏调用(`CALL("kernel32.dll","GlobalUnlock","JJ",${内存句柄})`); //解锁全局内存对象，以释放资源
return 内存句柄;
}else{console.log("未能分配内存！");}
}
function 内存取字符串(内存句柄){ //返回字符串
const 执行宏调用=ExecuteExcel4Macro,段长度=127;
const 内存地址=执行宏调用(`CALL("kernel32.dll","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; //计算字符串字节数
文本字符串+=分段文本;
} //解锁全局内存对象，使内存可以回收
执行宏调用(`CALL("kernel32.dll","GlobalUnlock","JJ",${内存句柄})`);
return 文本字符串;
}else{console.log("未找到内存地址！");}
}

复制代码

a66 · 发表于 2026-3-24 17:31:20

WPS JSA 剪贴板操作代码（优化版）

长文本无损读写剪贴板（突破 255 字符限制），可直接在 WPS 表格 / 文字 / 演示的 JSA 宏中使用。

完整可用代码

// 【工具函数】剪贴板操作 - 支持超长文本、无乱码、稳定运行
// 获取剪贴板文本（支持超长内容）
function GetClipboardText() {
let text = "";
const exec = ExecuteExcel4Macro;
if (exec('CALL("user32","OpenClipboard","JJ",0)')) {
const hMem = exec('CALL("user32","GetClipboardData","JJ",1)');
if (hMem) {
const ptr = exec('CALL("kernel32","GlobalLock","JJ",' + hMem + ')');
const len = exec('CALL("kernel32","lstrlenA","JJ",' + ptr + ')');
let offset = 0, chunk = 127;
while (offset < len) {
const part = exec('CALL("kernel32","lstrcpynW","FFJJ","",' + (ptr + offset) + ',' + chunk + ')');
text += part;
offset += chunk;
}
exec('CALL("kernel32","GlobalUnlock","JJ",' + hMem + ')');
}
exec('CALL("user32","CloseClipboard","J")');
}
return text;
}
// 设置剪贴板文本（支持超长内容）
function SetClipboardText(content) {
const exec = ExecuteExcel4Macro;
if (!exec('CALL("user32","OpenClipboard","AJ",0)')) { alert("打开剪贴板失败"); return; }
exec('CALL("user32","EmptyClipboard","A")');
// 分段处理（规避255字节限制）
const chunks = [], maxLen = 127;
for (let i = 0; i < content.length; i += maxLen) chunks.push(content.slice(i, i + maxLen));
// 计算总字节
let totalBytes = 0;
chunks.forEach(s => totalBytes += exec('CALL("kernel32","lstrlenA","JF","' + s + '")'));
// 分配内存
const hMem = exec('CALL("kernel32","GlobalAlloc","JJJ",2,' + (totalBytes + 1) + ')');
if (!hMem) { exec('CALL("user32","CloseClipboard","A")'); return; }
// 写入内存
const ptr = exec('CALL("kernel32","GlobalLock","JJ",' + hMem + ')');
let offset = 0;
chunks.forEach(s => {
exec('CALL("kernel32","lstrcpynW","JJFJ",' + (ptr + offset) + ',"' + s + '",' + s.length + ')');
offset += exec('CALL("kernel32","lstrlenA","JF","' + s + '")');
});
exec('CALL("kernel32","GlobalUnlock","JJ",' + hMem + ')');
exec('CALL("user32","SetClipboardData","JJJ",1,' + hMem + ')');
exec('CALL("user32","CloseClipboard","A")');
}
// ==================== 测试主函数 ====================
function TestClipboard() {
// 读取剪贴板原有文本
var oldText = GetClipboardText();
// 加工文本
var newText = "===== 处理开始 =====\n" + oldText + "\n===== 处理结束 =====";
// 写入剪贴板
SetClipboardText(newText);
MsgBox("操作完成！\n已修改剪贴板文本", 0, "成功");
}

复制代码

邪恶海盗 · 发表于 2026-3-24 17:32:20

用WPS操作剪切板是什么操作？？？

二○二六年三月二十四日

yyz2191958 · 发表于 2026-3-24 17:36:47

谢谢分享

it323 · 发表于 2026-3-24 17:47:16

感谢分享！

cutebe · 发表于 2026-3-24 17:52:34

本帖最后由 cutebe 于 2026-3-30 15:33 编辑

邪恶海盗发表于 2026-3-24 17:32
用WPS操作剪切板是什么操作？？？

有些是表格中内容复制后，需要处理转化然后再粘贴到记事本等。
有些是网页中复制后，经过处理填入表格。以上可能用到剪贴板！
获取/设置剪贴板文本这两个功能就可以被自定义的按钮调用了。

===== ===== ===== ===== =====
在WPS的JSA宏中，设置/获取剪贴板文本。分离字符串与内存交换操作函数：

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; //计算字符串字节数
文本字符串+=分段文本;
} //解锁全局内存对象，以释放资源
执行宏调用(`CALL("Kernel32","GlobalUnlock","JJ",${内存句柄})`);
return 文本字符串;
}else{console.log("未找到内存地址！");}
}

复制代码

.replace(/"/g,'""')

smile_z · 发表于 2026-3-24 19:43:27

学习一下

l3429900 · 发表于 2026-3-24 20:48:12

宏是很好用

肉仔 · 发表于 2026-3-25 10:35:03

学习一下！

ebaqiang · 发表于 2026-3-26 10:16:44

学到了，感谢楼主

挽云揽月 · 发表于 6 天前

学习了，多谢分享

cutebe · 发表于前天 20:31

有一个计算字符串字节数的新方法，调用表格函数LENB。

原方法：

偏移字节+=分段文本.replace(/[^\x00-\xff]/g,'xx').length; //计算字符串“分段文本”的字节数

复制代码

新方法：

function 测试计算字符中字节数新方法(){
let 字符串="你好阿小明。\nABC"; //应该是16字节
let 字节数=ExecuteExcel4Macro(`LENB("${字符串}")`); //表格JSA中计算字符串字节数
console.log("字符串的字节数："+字节数);
}

复制代码

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

办公WPS的JSA中操作剪贴板文本

点评

浏览过的版块