MS Word 2013:使用快捷键删除突出显示

磁通

我有100多页的Word文档,其中充满了必须纠正的突出显示的设置。完成后,我必须删除突出显示。

如果所有突出显示都具有相同的颜色,则使用Ctrl + Alt + H快捷键很容易。(Ctrl +空格会去除样式,但不会删除突出显示。)

但是我的地雷有几种不同的颜色,因此每次我都必须在功能区中选择颜色时,这会使快捷方式无用。

有没有一种方法可以设置快捷方式(或简化步骤),而无需将其设置在功能区中就可以删除突出显示的内容?

在此处输入图片说明

编辑1

此宏有效(RGB在循环的末尾,并且没有“大小写基于”)

  Select Case Selection.Range.Font.ColorIndex
    Case wdRed
        Selection.Range.Font.ColorIndex = wdPink
    Case wdPink
        Selection.Range.Font.ColorIndex = wdYellow
    Case wdYellow
        Selection.Range.Font.ColorIndex = wdBlue
     Case wdBlue
        Selection.Range.Font.TextColor.RGB = RGB(0, 176, 240)
    Case wdAuto
        Selection.Range.Font.ColorIndex = wdRed
    Case Else
        Selection.Range.Font.ColorIndex = wdAuto
    End Select

End Sub

但这不是(无法识别情况RGB(0,176,240))

  Select Case Selection.Range.Font.ColorIndex
    Case wdRed
        Selection.Range.Font.ColorIndex = wdPink
    Case wdPink
        Selection.Range.Font.ColorIndex = wdYellow
    Case wdYellow
        Selection.Range.Font.ColorIndex = wdBlue
     Case wdBlue
        Selection.Range.Font.TextColor.RGB = RGB(0, 176, 240)
     Case RGB(0, 176, 240)
        Selection.Range.Font.TextColor.RGB = RGB(256, 176, 240)
    Case wdAuto
        Selection.Range.Font.ColorIndex = wdRed
    Case Else
        Selection.Range.Font.ColorIndex = wdAuto
    End Select

End Sub

所以我已经尝试过类似的方法,但是仍然没有成功(没有发现任何东西)

  Select Case Selection.Range.Font.TextColor.RGB
    Case RGB(255, 0, 0)
        Selection.Range.Font.TextColor.RGB = RGB(1, 255, 1)
    Case RGB(1, 255, 1)
        Selection.Range.Font.TextColor.RGB = RGB(0, 0, 0)
    Case RGB(0, 0, 0)
        Selection.Range.Font.TextColor.RGB = RGB(255, 0, 0)
    Case Else
        Selection.Range.Font.ColorIndex = RGB(0, 0, 0)
    End Select

End Sub
hBy2Py

不幸的是,我不知道执行此操作的现有快捷方式。

幸运的是,我对没有快捷方式执行此操作感到非常沮丧,于是我编写了一个宏来为我执行此操作:

Sub RotateHighlight()
'
' Rotates highlighting of selected text between:
'   None, yellow, green, blue, red, pink, none, yellow, green, ...
'
' If the selected text is highlighted with anything other than these colors,
'  the highlight is removed.  Also, if the selection includes text whose
'  highlighting is not uniform, all highlighting is removed from the selection.
'

    Select Case Selection.Range.HighlightColorIndex
    Case wdYellow
        Selection.Range.HighlightColorIndex = wdBrightGreen
    Case wdBrightGreen
        Selection.Range.HighlightColorIndex = wdTurquoise
    Case wdTurquoise
        Selection.Range.HighlightColorIndex = wdRed
    Case wdRed
        Selection.Range.HighlightColorIndex = wdPink
    Case wdNoHighlight
        Selection.Range.HighlightColorIndex = wdYellow
    Case Else
        Selection.Range.HighlightColorIndex = wdNoHighlight
    End Select

End Sub

为了在使用Word的任何时候都可以将此宏用作键盘快捷键,请打开VBA编辑器(打开任何Word文档,然后按Alt-F11),然后在Normal模板中创建一个代码模块:

VBA片段

将以上代码复制/粘贴到新创建的模块中,并使用Ctrl-S保存。关闭VBA编辑器。

在Word中,单击快速访问工具栏右侧的带有其上条的小向下箭头三角形,然后选择“更多命令”:

文字剪

在出现的对话框中,从左侧列表中选择“自定义功能区”,然后单击底部“键盘快捷方式”旁边的“自定义”:

文字剪

应出现以下对话框:

文字剪

在“类别”下,一直滚动到底部,然后选择“宏”。在“宏”下,选择“旋转高光”。(除非您已经是VBA程序员,否则RotateHighlight可能是“宏”下的唯一项。)单击“按新快捷键”,然后按所需的快捷键组合。我个人喜欢将其设置为Ctrl-Alt-Shift-H。确保在“当前分配给:”旁边显示“ [未分配]”,然后单击底部的“分配”。完成后“关闭”,并进行测试!

出于您的目的,选择要从中删除突出显示的文本,以及周围的一些其他未突出显示的文本,然后运行宏。这应该清除选择中的所有突出显示。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章