WPS文字 JSA 实例收集

查找替换

查找关键字修改字体颜色和背景

function 创建关键字样式(){
	var styleName = "关键字"
	try{
		ActiveDocument.Styles.Item(styleName).Delete();
	}catch(e){
		Console.log("样式不存在");
	}
	// 样式类型 正文字符样式
	ActiveDocument.Styles.Add(styleName, wdStyleTypeCharacter);

	(obj=>{
		obj.NextParagraphStyle = "";
		obj.Shading.BackgroundPatternColor = wdColorRed
		obj.Font.ColorIndex = wdYellow
		obj.Font.Bold = 1; 
	})(ActiveDocument.Styles.Item(styleName));

}

function 查找关键字修改字体颜色和背景(){
	// 样式名
	var styleName = "关键字";
	
	// 关键字
	var arr = ['vba', 'java'];
	
	(obj=>{
		// 目标样式
		(obj => {
			obj.Style = styleName;
	 		obj.Text = "^&";
		})(obj.Replacement);
		
		// 向前查找，到末尾后继续
		obj.Forward = true;
		obj.Wrap = wdFindContinue;
		
		// 遍历查找所有关键字
		arr.forEach(str => {		
			obj.Text = str;
			obj.Execute(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, wdReplaceAll, undefined, undefined, undefined, undefined);
		});
		
	})(Selection.Find);
	
}

参考资料

WPS 颜色枚举 WdColorIndex 枚举
WPS 样式类型 WdStyleType 枚举