当焦点在 Microsoft Word/Excel 中发生变化时如何突出显示选定的文本

Question

与此问题相关：不聚焦时在 Excel 中显示单元格选择，除了我的案例涉及 Microsoft Word。

当我在 Microsoft Word 或 Excel（2003、2007、2010 或 2013）中选择文本或列/行时，它会在 Word 中以如下方式突出显示：

和Excel：

但是，当我将焦点转移到另一个程序时，突出显示的文本不再突出显示。

我通常使用 2 个监视器，其中一个监视器包含一个包含我需要阅读的数据的文档/电子表格，另一个监视器是我实际工作的地方。我将选择一些文本（或单元格）使其在许多数据页中脱颖而出，然后切换程序，但突出显示的文本不再可见。

这个问题有永久的解决方案吗？

Answer 1

解决一半问题的快速方法（从 Excel 切换到 Word 时）是复制文本。当您按 Ctrl + c 时，单元格将继续被标记（高亮消失了，但文本周围仍然有一条虚线）。

这样做的一个缺点是，只要您按住复制的单元格，文本就会被标记。这意味着您无法复制任何其他内容或标记已消失。不幸的是，这不能从 Word 到 Excel。

Answer 2

这似乎是微软独有的“功能”。对于大多数项目，我只需要只读访问权限，格式对我来说无关紧要，因此我已切换到不表现出这种行为的 OpenOffice。

Answer 3

这个问题没有永久的解决办法。

一种解决方法（可能会在一段时间内变得烦人）是在选定单元格时更改它们的突出显示，然后再次重新选择它们以删除颜色。

将此代码粘贴在 Sheet1 代码后面，然后转到电子表格并选择一些单元格，选择其他单元格，然后重新选择第一个单元格以删除颜色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range

    For Each cell In Target.Cells
        If cell.Interior.Color = RGB(60, 150, 230) Then
            cell.Interior.Pattern = xlNone
        Else
            cell.Interior.Color = RGB(60, 150, 230)
        End If
    Next
End Sub

Answer 4

这个 VBa 会做到这一点，但它假设你没有使用高亮。如果你是，你的突出显示会变得一团糟，所以不要使用它。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Worksheet.Cells.Interior.ColorIndex = xlNone
    ActiveCell.EntireRow.Interior.ColorIndex = 19
End Sub

如何在 MS Office 中添加 VBA？

作为一项大规模的工作（如果突出显示对您不起作用），您可以使用类似 JRuler 的东西（听我说：）！) 因为这将允许您将标尺留在屏幕上，上面有问题的行，所以当您的眼睛返回该屏幕时，您可以看到您所在的位置（所以您可以看到，我失去了我的突出显示，但至少我可以看到我正在看第 3 行）！

不要误会我的意思，如果您经常这样做，这会很费力而且很痛苦，但是，对于任何程序（Word 和 Excel）来说，这可能就足够了。