WPS下 宏使用js编写及一些脚本

参考文件：

• 1.wps开放平台 WPS 开放平台
• 2.微软word接口 Word (WdColor) | Microsoft Docs

1.打开wps,找到开发工具，切换到js环境，图中已经切换到js了所以显示的是切回vb

 2.打开wps宏编辑器 编写第一个函数

 

 上图里面的函数是用录制宏生成的，不靠谱，使用下面这个函数

function helloWPS(){
	Console.log("hello wps!!");
}


function helloWorld(){
	alert("hello wps");
}

function helloWorld2(){
	Debug.Print("hello world2!!")
}

3. 运行此函数

    光标定位在哪一个函数内部，点击运行或F5,会运行此函数。如果不在任何一个函数内，会弹出面板让用户选择运行哪一个！  此函数作用在当前文档上，测试时要在测试文档上运行！！

4.在文档中运行此函数

选择刚才的函数，运行。

5.录制宏

有时需要编写功能但不知道从和下手，点击录制宏，进行操作，再点击停止后可生成参考代码。

此功能不能完全相信，比如录制时按住ctrl进行跨段多选，其生成的代码不能重现用户操作。

6.常用输出信息的方法：

Console.log("调试信息1") //在wps编辑器中首字母需大写
Debug.Print("hello world2!!") //在wps编辑器中首字母需大写
alert("调试信息3")
Console.clear() //清空所有日志

7. 示例脚本

由于我所编写的word文档中表格有130多个，且每个表格的内容都在20-30行左右，需要对表格进行格式化，插入数据等。

以下是我使用的脚本

---

7.1 给每个表格的第一行加上底色

function changeColorForFirstRowOfEachTable(){
	//去除所有表格第一行的阴影部分
	let count = Application.ActiveDocument.Tables.Count;
	for(let i=1;i<count;i++){
		 let table = Application.ActiveDocument.Tables.Item(i);
         // 颜色参考 https://docs.microsoft.com/zh-cn/office/vba/api/word.wdcolor
	     table.Rows.Item(1).Cells.Shading.BackgroundPatternColor = wdColorGray30
	}
}

7.2 每个表格的单元格进行处理 => 去掉首位空格 、去掉收尾回车 、居中

/*
  三重循环，有点恶心了，但是没办法
*/
function editCellsForTable(){
	//清理日志
	Console.clear()
	let count = Application.ActiveDocument.Tables.Count;
	
	for(let i=1;i<=count;i++){
		 let table = Application.ActiveDocument.Tables.Item(i);
       
	    let rowCount = table.Rows.Count;
	    for(let j=1;j<=rowCount;j++){
	    	let rowContent = table.Rows.Item(j);
	    	let cellCount = table.Rows.Item(j).Cells.Count;
	    	for (let k=1;k<=cellCount;k++){
	    		// 获取每一行的celss
	    		 let cell = table.Rows.Item(j).Cells.Item(k);
	    		  
	    		 let textVal = cell.Range.Text;
	    		 Console.log("|"+textVal+"|")
			     // 去空格  去换行符 
			     let val = textVal.replace(/[\r\n]/g,"").replace(/(^\s*)|(\s*$)/g, "");
			     cell.Range.Text=val
	    	}
	    }
	    
	        // 选中整个table  进行居中
	        Selection.SetRange(table.Range.Start,table.Range.End);
	    	Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter;
	  
	}
}

7.3 格式化每一个table的表头

        思路： 选中某一行，点击格式刷，再应用到其他行

function formatTableRowExceptionFirst(){
  //选中某一行  此数据时由录制宏中生成的函数中摘取
  Selection.SetRange(4511, 4544);
  //复制选中行格式
  Selection.CopyFormat();
  //准备遍历表格
  let tabNum = 	Application.ActiveDocument.Tables.Count;
  for(let i=100;i<tabNum;i++){
    //当前表格
  	let currTab = ActiveDocument.Tables.Item(i);
    let rowNum = currTab.Rows.Count;
    for(let j=2;j<=rowNum;j++){
      let rowRange =    	currTab.Rows.Item(j).Range;
    	//选中此行，应用样式
        Selection.SetRange(rowRange.Start,rowRange.End);
    	Selection.PasteFormat()
    }
  }
}