如何在vba中为特定的一组字符设置Word的范围？

Question

我在一个单词段落中找到了一个起始字符和结束字符，但就我而言，我无法确定如何设置包含这些字符的范围。以下是我所拥有的内容的摘录：

Set rngTemp = w.Paragraphs(i).Range
For iCounter = 1 To rngTemp.Characters.Count
    If rngTemp.Characters(iCounter).HighlightColorIndex = wdYellow Then
        lStartPos = iCounter
        While rngTemp.Characters(iCounter).HighlightColorIndex = wdYellow
            iCounter = iCounter + 1
        Wend
        lEndPos = iCounter

使用起始字符和结束字符的值，如何设置包含该字符串的范围？我做了很多尝试，但都没有成功。

Microsoft“使用范围”页面上的说明包含以下代码：

Set rngDoc = ActiveDocument.Range(Start:=0, End:=10)

我在样本的第一行（“设置rngTemp…”）中没有收到任何错误，这似乎与微软的样本非常相似。但当我尝试时：

Set r = w.Paragraphs(i).Range(Start:=lStartPos, End:=lEndPos)

我得到"编译错误：错误数量的参数或无效的属性分配"

Answer 1

我想我已经用这个密码找到了答案：

 Set r = w.Range(w.Paragraphs(i).Range.Characters(lStartPos).Start, _
          w.Paragraphs(i).Range.Characters(lEndPos).End)

但它仍然产生了一个错误。在直接窗口中，我粘贴了每一行的代码，并显示了每一行的数字。然后我将set语句更改为使用实际数字，这就奏效了。出于某种原因，VBA不喜欢让上面代码中的数字在设置范围变量时起作用。我将原始代码（从顶部）更改为：

Set rngTemp = w.Paragraphs(i).Range

        For iCounter = 1 To rngTemp.Characters.Count
            If rngTemp.Characters(iCounter).HighlightColorIndex = wdYellow Then

                'lStartPos = iCounter
                lStartPos = w.Paragraphs(i).Range.Characters(iCounter).Start

                While rngTemp.Characters(iCounter).HighlightColorIndex = wdYellow
                    iCounter = iCounter + 1
                Wend

                'lEndPos = iCounter
                lEndPos = w.Paragraphs(i).Range.Characters(iCounter).End

                Set r = w.Range(lStartPos, lEndPos)

它成功了。