删除指定范围内的高亮显示

Question

我在Word文档中突出显示了段落，我必须从每个段落的第3到第5个字符中删除突出显示。

通过搜索集合r=ActiveDocument中突出显示的范围。在VBA中，可以完美地找到文本段。

错误出现在r行（开始：=r\u开始，结束：=r\u结束）。HighlightColorIndex=wdNoHighlight。

编译错误：参数数量错误或无效的属性分配。

danI如何在r范围内正确指定第3到第5个字符的子范围？谢谢你的帮助。

Dim r as Range
Dim r_start As Integer
Dim r_end As Integer
r_start = 2
r_end = 5
Set r = ActiveDocument.Range
With r.Find
  .Highlight = True
  Do While .Execute(FindText:="", Forward:=True) = True
    if r.Characters.Count > 7 Then
       r(Start:=r_start, End:=r_end).HighlightColorIndex = wdNoHighlight
    End If
    r.Collapse 0
  Loop
End With

Answer 1

你就快到了，我修改了代码并测试了它，它在我这边运行得非常好。它将在文档中找到任何突出显示的区域，并将从字符2到字符5删除突出显示：

Sub GetHighlights()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim r_start As Integer
    Dim r_end As Integer
    r_start = 2
    r_end = 5

    Set rng1 = ActiveDocument.Range
    With rng1.Find
      .Highlight = True
      Do While .Execute(FindText:="", Forward:=True) = True
        If rng1.Characters.Count > 7 Then
            Set rng2 = ActiveDocument.Range(Start:=rng1.Start + r_start, End:=rng1.Start + r_end)
            rng2.HighlightColorIndex = wdNoHighlight
        End If
        rng1.Collapse 0
      Loop
    End With
End Sub

Answer 2

导致错误消息的问题是只有Range方法（如文档中）。Range）接受参数。Range对象，因为它不是一个方法，所以不能接受任何参数。为了设置Range对象的开始和结束，您需要这些名称的属性。所以：

   r.Start = r.Start + r_start
   r.End = r.Start + r_end

您的代码在测试时遇到了许多其他问题。例如，如果您将开始位置设置为r_start，将结束位置设置为r_end，则Ranger将从整个文档的第二到第五个字符开始，而不是Ranger.这就是为什么上面的两行代码已经从原来的代码更改了。

下一个问题是，目前的代码进入无限循环，因为搜索总是从“find”突出显示开始。出于这个原因，我添加了一个变量来捕获最初找到的范围的endpoint，并将其用作每个循环中要搜索的范围的起点。要搜索的范围的结尾设置为文档的结尾。

以下是我的示例代码：

Sub FindRemoveHighlighting()
    Dim r As Range, rDoc As Range
    Dim r_foundEnd As Long
    Dim r_start As Long
    Dim r_end As Long
    r_start = 2
    r_end = 5
    Set rDoc = ActiveDocument.content
    Set r = rDoc.Duplicate
    With r.Find
      .Highlight = True
      .Text = ""
      .Format = True
      .Format = True
      Do While .Execute() = True
        If r.Characters.Count > 7 Then
           rFoundEnd = r.End
           r.Start = r.Start + r_start
           r.End = r.Start + r_end
           r.HighlightColorIndex = wdNoHighlight
        End If
        r.Start = rFoundEnd
        r.End = rDoc.End
      Loop
    End With
End Sub