如何将突出显示颜色切换为黄色，以便在Word 2007中输入的文本？

Question

在MS Word 2007中的VBA-MACRO中，我想将文本将文本突出显示为黄色的颜色，以便在光标位置键入的文本。

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

但如果文本已存在并且被选中，则似乎仅工作。 我还可以将突出显示颜色设置为黄色，以便将在光标位置插入的文本？

（例如，如果我点击“粗体字体”按钮，则所有未来文本都会粗体， 但这似乎并没有与突出函数合作，或者有没有办法做到这一点？）

Answer 1

所有未来文本将是大胆的

否，它不会。通过单击“生成码icetagcode”，将“文本中的当前点”标记为粗体，如果从该点进行键入，则文本将是粗体的，因为它是从粗体的位置键入，而不是因为按下按钮。如果单击“生成频划线”，将插入件移到其他地方并键入，不会粗体。

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

Dim r As Range
Set r = Selection.Range

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

.