WPS文字 JSA 实例收集

Posted 2022-03-15 笑虾

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 枚举