灵台方寸山斜月三星洞

WPS JSA 学习笔记调用CMD命令调用CMD命令复制文件调用CMD命令调用CMD命令复制文件function 调用CMD命令复制文件(source, target){ Shell(`cmd /k copy "${source}" "${target}"`, jsNormalFocus);}function test(){ 调用CMD命令复制文件("c:\\hi.txt", "f:\\Temp\\vba");}......

EXCEL常用公式：8位随机码=CONCATENATE(IF(INT(RAND()*3)=0,CHAR(INT(RAND()*10+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*3)=0,CHAR(INT(RAND()*10+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF

为了方便，我一盘添加这几个：Visio 的键盘快捷方式

我就想要 Ctrl + 3 默认画出黑色直线。

Word、WPS 都没有自带此功能。只能统一设置整篇文档的背景色。但是可以曲线求国，且相对完美。

数据 》 重复项 》 设置高亮重复项勾选：精确匹配15位以上的长数字

WPS表格 JSA-单格内，按文字颜色处理文字按颜色删除单元格内指定文字辅助方法参考资料按颜色删除单元格内指定文字function removeCharByColor(查找颜色索引 = 2, 结果字号 = 9, 结果颜色 = 0) { // 修改时不需要刷屏 Application.ScreenUpdating = false; // 关闭屏幕重绘 Application.EnableAnimations = false; // 此对象、成员或枚举已被弃用并且不适合在您的代码中使用。 Appli

WPS文字 JSA 实例收集

Word 文本转换成表格WPSWord将文本转换成表格将表格转换成文本参考资料WPS使用WPS Office打开文档，在文字内容间用统一的标记或符号分隔开。（这里使用英文逗号分开）选择需要转换的内容，依次点击“插入”—>“表格”，选择“文本转换成表格”。在弹出框中，设置“表格尺寸”及“文字分隔位置”（选择“逗号”），点击“确定”即可完成转换。Word若要将文本转换成表格或将表格转换成文本，请首先单击“开始”选项卡上的段落标记，以便查看文档中的文本分隔方式。将文本转换成表格插入分

function 创建自定义编号(){ // 遍历1到9级 var nf = "%1、%2.%3.%4.%5.%6.%7.%8.%9."; var arr = [...ListGalleries.Item(4).ListTemplates.Item(1).ListLevels]; // 取自定义第一个进行设置 arr.forEach((obj,i)=>{ var n = i+1; obj.NumberFormat = nf.substring(0, n*3); // 列表级别的数

准备：先创建一个自定编号。先全选全文，取消编号。将标定在最开始。执行以下方法。function 遍历所有标题设置编号(){ var flag = 0; var t = Selection.GoTo(wdGoToHeading, wdGoToNext, 1, ""); // 关闭屏幕更新,提升执行效率 // Application.ScreenUpdating = false; while (flag != t.End) { // 记住当前位置 flag = t.End; .

WPS表格 JSA 学习笔记 - 批量设置表格创建表格样式批量设置表格返回当前表格索引参考资料创建表格样式function 创建表格样式(styleName = "表格"){ try{ ActiveDocument.Styles.Item(styleName).Delete(); }catch(e){ Console.log("样式不存在"); } ActiveDocument.Styles.Add(styleName, wdStyleTypeParagraph); (obj=&gt

function 创建图片样式(styleName = "图片"){ try{ ActiveDocument.Styles.Item(styleName).Delete(); }catch(e){ Console.log("样式不存在"); } ActiveDocument.Styles.Add(styleName, wdStyleTypeParagraph); (obj=>{ obj.Alignment = wdAlignParagraphCenter; // 居中 o.

需求：自定PDF目录（目录与文章标题不一至，无法直接用标题生成）。方案：创建标签，再转PDF。（用标签生成目录）用一个2维数组，定义标签名字与页码。标签文字中有一些限制，需要处理一下。var m = [["一、AAAAAAAAA",4],["A111111111111111",4],["二、BBBBBBBBBBB",7],["B222222222222222222",7],["三、CCCCCCCCCCCCCCCC",12],["C3333333333333333",12],["四、DD

let snake = Range("Y25:Y30");// 蛇身显示let arr = []; // 蛇身数据let toggle = false; // 总开关let totalScore = 0; // 总得分let scoreCount = 0; // 目标let area = Range("B2:AY51"); // 活动区域let scoreArea = Range("BA1"); // 记分区域let snakeColor = '00FF00'; // 蛇颜色let sco.

Excel/WPS 按条件合并多行原始数据规则需求解决步骤建辅助列拼接多行数据原始数据规则多个组有组号区分: 1、2、3、4每个组有自己负责的工作区域。（特殊情况：组长光杆司令比如 3组）有的员工需要负责多个工作区域（员工在组内名单中会多次出现）需求统计出每个组长管辖的工作区域。合并显示在组长所在的行。统计出每个组长管理的员工。合并显示在组长所在的行。组长与副组长一样处理。解决步骤建辅助列标识出组长行。在B列对应行搜"组长"，搜到就标为"是"=IF(IFERROR(SE

WPS表格 JSA 学习笔记自定义公式单元格内文字颜色Sheet 工作表工作表引用Range单元格引用填写公式单元格赋值Cells 遍历单元格Sheet 范围内遍历Range 范围内遍历参考资料自定义公式function 加括号(区域, 左括号, 右括号){ return `${左括号}${区域}${右括号||左括号}`;}单元格内文字颜色function test(){ var len = Range("A1").Value2.length; for(let i = 1; i<=

在表格末尾添加一行（表格行）。（此时光标应该默认在这个新行中，如果没有，自己手动点一下）按 Shift + 回车 将此行与前面的表格拆分开，中间会出现一个空文本行。ok

目前已经出了正式版，开启收费模式。导出功能需要用到 pandoc。

Sub 清除单格内部分文字() On Error Resume Next ' 忽略报错 Dim r As Range Dim count As Integer Dim c As Characters Dim str As String For Each r In Range("A2:E115") count = r.Characters.count For i = 1 To count

Microsoft Project 设置工作时间这里是坑方案一方案二这里是坑这里改了貌似没luan用。方案一这个应该是比较正规的方式。方案二上面的方案，改着有点麻烦，每天都要重复设置。下面这样也能实现，并且感觉方便很多。......

Word/WPS 利用邮件合并批量生成文档WPS1. 先找到功能所有位置2. 准备用于批量生成的数据3. 插入数据批量生成文档4. 批量生成文档参考资料WPS准备一个模板文档、一组数据。通过邮件合并功能，将每行数据填入模板文档指定位置，最终将生成一个文档。1. 先找到功能所有位置先打开模板文档，再：引用 》 邮件 》（出现新标签）邮件合并2. 准备用于批量生成的数据2.1 先在excel表中准备好以下数据姓名职务性别张三官兵男李四镖头男王八镖师男

移除样式并保留格式Sub 移除样式并保留格式() '不能完全保留格式 'https://sspai.com/post/38852 '对于一个由多文档合并起来的长文档，它的样式多而混乱以致于无法使用，会引起word崩溃 '对于这些样式，移除（即都统一为正文样式），并保留各种格式（变成不受样式控制的直接格式） Dim Para As Paragraph Dim Fnt As Font '代码字体的所有格式 Dim Pfmt As ParagraphFormat '代表段落

平时画流程图还没那么明显。但是画时序图时，这个链接点不够用，非常别扭。Shift + Ctrl + 1 激活链接点工具。Ctrl + 左键 添加链接点。选择链接点，按 del 键可删除参考资料Edit connector lines, arrows, or points...

Word 【域】学习笔记 - 图/表题注插入题注章节（标题）号标题设置编号引用标题级别参考资料插入题注引用 > 插入题注 或 右键 > 插入题注章节（标题）号【题注编号】点击【确定】 时弹出以下内容：这是因为我的标题没有设置编号，效果如下：图：{ STYLEREF 1 \s } - { SEQ 图： \* Arabic \s 1 } 效果： 图：0–1标题设置编号效果： 图：1–1引用标题级别图：{ STYLEREF 1 \s } 这里的 1参考资料Word 【域】

Sub 批量插入批注()On Error Resume Next '批注来源列名 Dim targetColumnName As String '批注来源列号 Dim offsetColumn As Integer '计数 Dim count As Integer targetColumnName = InputBox("直接输入列名字母： ", "批注来源列") If targetColumnName = "" Then

在添加题注时因为我们大章经常用中文数字的：第一章，第二章，第三章所以默认的题注表格 { STYLEREF 1 \s \* MERGEFORMAT }-{ SEQ 表格 \* ARABIC \s 1 }就会显示为表格 三-1方案一：直接改用编号：第1章，第2章，第3章方案二：{ SEQ 自定的章节记号 \h }用 { SEQ myseq \h } 的每个章标题后标记，后面的题注中{ SEQ myseq \c }引用通过查找一级标题，替换。来批量添加 { SEQ myseq \h }2.1.

先插入一个题注 图： 0 1 域代码为图：{ STYLEREF 1 \s }-{ SEQ 图： \* ARABIC \s 1 }查找图片并替换 （wps 2019未支持）2.1 选择并复制上面的题注（将其放到剪切版中）2.2 查找替换^g 图版^& 查找到的内容^p 回车换行^c 剪切板中的内容...

引用标题的页码{ PAGEREF _Ref23073557 \h }参考资料官网 Word 中的域代码列表

Sub 获得当前表的序号() With Selection If .Information(wdWithInTable) = True Then If .Cells.Count = 1 Then StrAddr = "T" & Selection.Tables(1).Range.Start &...

选择所有当前文档所有表'名称 值 说明'wdEditorCurrent -6 代表文档的当前用户。'wdEditorEditors -5 代表使用"信息版权管理"的文档的"编辑"组。'wdEditorEveryone -1 代表打开文档的所有用户。'wdEditorOwners -4 ...

Excel中的单元格格式是一个最基本但是又很高级的技能，说它基本是因为几乎天天都会用到它，会用它来设置一些简单的格式，比如日期，文本等等；高级是因为利用Excel单元格的自定义格式我们可以实现一些看起来非常神奇和有用的效果。下面本文就由浅入深的来介绍一下 Excel单元格自定义格式的知识和技巧。1、“G/通用格式”以常规的数字显示,相当于"分类"列表中的"常规"选项。代码：G/通用格式。1......

180天后需要再次和谐运行UnInstall_Service.cmd 清理装 KMSpico运行 KMSELDI （有拦截提示，自己决定是否放弃）激活指定内容这里应该是（选择要激活的内容，然后点钥匙按钮。但我选了，没按钥匙，直接下一步了）Main页面下直接点那个红色按钮。效果我不确定第二部是否需要，但是最后成功了...

'----------------------------------------------声明变量-初始化数据-----------------------------------------------'作者： 笨笨'Q Q : 112177423'时间： 2010-12-11 19:27'功能： 将当前目录测试成 ACCESS 2007 的信任位置'原因： 给果果用 '---...