查找替换
查找关键字修改字体颜色和背景
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 枚举
|