以黄色突出显示字符串中的单词（句子）

Question

我在 vba 中从 excel 创建了一个小型 word 文档。我想用黄色突出显示句子中的一个词。目前，我正在做的是：

        wdDoc.Content.Paragraphs.Last.Range.Characters(60).Shading.BackgroundPatternColor = wdColorYellow

...这对一个角色来说很好，但对多个角色来说就不是很好了。在我的例子中，我突出显示了一个 7 个字符的单词，通过重复上面的这一行并更改索引是可行的。

但是，我很好奇，想知道是否有更好的方法。谢谢

Answer 1

我测试了这个小片段。它确定文档中过去段落的第 60 个字符的位置，然后从那里开始设置一个范围。

Dim wdDoc As Document
Dim p As Long

Set wdDoc = ActiveDocument
p = wdDoc.Paragraphs.Last.Range.Characters(60).Start
wdDoc.Range(p, p + 7).Shading.BackgroundPatternColor = wdColorYellow

应该有更简单的方法，但我没有找到。

以黄色突出显示字符串中的单词（句子）

Highlight in yellow a word in a string (sentence)

excel

vba

ms-word