【WPS】实现自动加载宏

不过，这个方法在 Office 中测试不一定会生效，但在 WPS 电信定制版里面就可以生效。按照下面的步骤即可，这里以"加粗字体为红色"的效果为例，设置快速访问工具栏，实现快捷键快速调用

bash 复制代码

Sub BoldAndRedWPS()
    Dim pptSel As Object
    ' 获取WPS当前的选择对象
    Set pptSel = ActiveWindow.Selection
    
    ' 判断是否用鼠标抹选了文字
    If pptSel.Type = 3 Then ' 3 代表 ppSelectionText
        With pptSel.TextRange.Font
            .Bold = True                  ' 加粗
            .Color.RGB = RGB(255, 0, 0)   ' 变红
        End With
    Else
        MsgBox "请先用鼠标抹选文本框中的部分文字！", vbExclamation, "WPS提示"
    End If
End Sub

将文件另存为加载项
打开你已经写好红粗体宏代码的那个 PPT（确保代码在"模块"里）。
点击文件 -> 另存为。
非常关键：将保存类型切换为 "PowerPoint 加载项 (*.ppam)"。
将其命名为 WpsTools.ppam，直接保存在你最容易找到的地方（比如桌面或D盘根目录），然后关闭这个 PPT。
在 WPS 中手动强制加载它
重新打开一个全新的 WPS 空白 PPT。
点击顶部菜单栏的 "开发工具" -> 点击 "加载宏"（或者点击"文件" -> "选项" -> "加载项" -> 管理"PowerPoint加载项" -> 前往）。
在弹出的窗口中，点击 "添加新项..."（Add New...）。
找到你刚刚保存在桌面或D盘的 WpsTools.ppam，选中并点击确定。
看到列表里出现 WpsTools 且前面的勾是选中的状态，点击"关闭"。
调出到快速工具栏

• 点击文件 -> 选项 -> 快速访问工具栏。

• 切换到 "宏"，你就会看到这个带路径的宏，把它添加到右侧，点击确定即可。这样它就永远不会消失了！

其他

WPS还是比Office要更好用。光是从这个红色字开始就很舒服，每次可以自动加载自己自定义的操作，但是Office就不行。Office显示是由于安全设置，反正就是找不到。。。

其次，不得不吐槽一下 Office 的这个右键弹出功能，真的没有 Office 方便。

选中就可以实现复制，这个还有谁！！