vba - 如何将在 Word 2007 中键入的文本的突出显示颜色切换为黄色？

Question

在 MS Word 2007 的 VBA 宏中，我想将文本突出显示颜色切换为黄色，以便在光标位置输入下一个文本。

如果我想更改当前选定文本的颜色，我可以这样做 Selection.Range.HighlightColorIndex = wdYellow

但这似乎只有在文本已经存在并被选中时才有效。我还可以将要插入光标位置的文本的突出显示颜色设置为黄色吗？

（例如，如果我点击“粗体”按钮，所有未来的文本都将是粗体，但这似乎不适用于突出显示功能，或者有没有办法做到这一点？）

score 2 · Accepted Answer

以后的所有文字都会加粗

不，不会的。通过单击bold，您将文本中的当前点标记为粗体，如果您从该点继续键入，文本将变为粗体，因为它是从粗体位置键入的，而不是因为按下了按钮。如果单击bold，将插入符号移动到其他位置并键入，它不会是粗体。

正确的方法是插入文本并将格式应用于其范围。

Dim r As Range
Set r = Selection.Range

r.Collapse wdCollapseStart
r.InsertAfter "Text to insert"
r.HighlightColorIndex = wdYellow

1 回答 1