word里面的宏，想设置成自动给字体加红色的那种，结果运行宏老是没反应。

Question

图片不清晰，文字如下：
Sub 宏1()
'宏1
Selection.Find.ClearFormatting
With Selection.Find
.Font.Color = wdColorRed
End With
End Sub

Answer 1

使用Word中的宏功能，指定运行宏的快捷键就行了。比如要把选中的字变为红色，把运行宏的快捷键指定为“Ctrl+Shift+1”，选定字块后按一下“Ctrl+Shift+1”，字就会变为红色。
先选定文字，然后按如下步骤操作：
①单击“工具”—“宏”—“录制新宏”，得到“录制宏”对话框，宏名为“Macro1”。
②单击“键盘”按钮，得“自定义键盘”，在“请按新快捷键”框中，按一个快捷键（比如“Ctrl+Shift+1”）。
③单击“指定”—“关闭”，宏录制即开始，屏幕上会出现录制控制按钮（包括一个停止按钮和一个暂停按钮）
④与平时的操作无异，将字体改为红色。
⑤操作完毕，单击“停止”按钮，宏即定义完毕。
4.如果要用快捷键改为其他颜色，再定义另一个宏即可，方法相同，但快捷键不要重复！