使用WPS宏实现切换字体颜色的快捷键

最新推荐文章于 2025-03-23 15:49:20 发布

APguantou

最新推荐文章于 2025-03-23 15:49:20 发布

阅读量974

点赞数 5

文章标签： wps

本文链接：https://blog.csdn.net/APguantou/article/details/142898028

版权

最近使用WPS做笔记的时候，想要切换当前字体的颜色，都需要使用鼠标点击设置字体颜色，感觉有点影响效率，对键盘的专注度不高。使用键盘设置字体颜色的话需要的时间更长，我就在想能不能用WPS宏创建一个快捷键

一、打开宏代码编辑器

在这里插入图片描述在工具选项卡中找到开发工具入口

在开发工具中找到查看代码
在工程窗口找到Project（Normal.dotm）
打开NewMacros代码页

注意：normal.dotm是wps文字每一个文档都通用的文档格式，类似幻灯片母版，如果想要给文档社设置单独的宏，在工程中，选择对应的文档下的NewMacros即可

二、输入宏代码

将下面的宏代码复制进该页面中

function 红色字体()
{
	(obj=>{
		obj.Size = 10.500000;
		obj.Underline = wdUnderlineNone;
		obj.EmphasisMark = wdEmphasisMarkNone;
		obj.Hidden = 0;
		obj.Shadow = 0;
		obj.Outline = 0;
		obj.Emboss = 0;
		obj.Engrave = 0;
		obj.Scaling = 100;
		obj.Scaling = 100;
		obj.NameFarEast = "宋体";
		obj.NameFarEast = "微软雅黑";
		obj.NameAscii = "微软雅黑"; 
		obj.NameAscii = "Arial";
		obj.NameBi = "宋体";
		obj.NameBi = "Times New Roman";
		obj.NameFarEast = "宋体";
		obj.NameFarEast = "宋体";
		obj.Size = 10.500000;
		obj.Color = RGB(255,0,0);
	})(Selection.Font);
}

function 黑色字体()
{
	(obj=>{
		obj.Size = 10.500000;
		obj.Underline = wdUnderlineNone;
		obj.EmphasisMark = wdEmphasisMarkNone;
		obj.Hidden = 0;
		obj.Shadow = 0;
		obj.Outline = 0;
		obj.Emboss = 0;
		obj.Engrave = 0;
		obj.Scaling = 100;
		obj.Scaling = 100;
		obj.NameFarEast = "宋体";
		obj.NameAscii = "宋体";
		obj.NameAscii = "Arial"; 
		obj.NameBi = "宋体";
		obj.NameBi = "Times New Roman";
		obj.Size = 10.500000;
		obj.Color = RGB(0,0,0);
	})(Selection.Font);
}