如何将高亮颜色切换为黄色以用于将在Word 2007中键入的文本？

Question

在MS Word 2007中的VBA-Macro中，我希望将文本高亮颜色切换为黄色，以便在光标位置接下来键入文本。

如果我想更改当前所选文本的颜色，我可以使用 Selection.Range.HighlightColorIndex = wdYellow

但是，如果文本已经存在并被选中，那么这似乎才有用。 我是否也可以将高亮颜色设置为黄色，以便在光标位置插入文本？

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

Answer 1

  

所有未来的文字都是粗体

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

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

Dim r As Range
Set r = Selection.Range

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