使用C＃或VBA找出MS Word文档中突出显示的文本的背景色

Question

以下内容可在Word文档中找到突出显示的文本（即使不同位置的不同文本使用不同的颜色突出显示）。 我们如何找出每个突出显示的文本的背景色。 我正在使用C＃，但VBA也可以：

With ActiveDocument.Range.Find
  .Highlight = True
  While .Execute
    Debug.Print .Parent.Text
  Wend
End With

Answer 1

下面的语句将为您提供MS Word中所选文本的颜色索引

Dim objSelection As Selection
Set objSelection = Application.Selection
Msgbox objSelection.FormattedText.HighlightColorIndex

返回的值是wdColorIndex枚举之一。 枚举中的值列表可以在此处查看https://msdn.microsoft.com/zh-cn/library/bb237561(v=office.12).aspx

更新＃1

下面的代码按要求使用ActiveDocument.Range.Find

Dim objSelection As Selection
Dim temp As String

With ActiveDocument.Range.Find
  .Highlight = True
  While .Execute
    'Store the text for searching later
    temp = .Parent.Text

    'Select all the text
    ActiveDocument.Content.Select

    'Find and select the text
    With Selection.Find
        .Text = temp
    End With

    If Selection.Find.Execute Then
        Selection.Select
    End If

    'Now that we've selected it, get the HighlightedColorIndex
    Set objSelection = .Application.Selection
    MsgBox .Parent.Text & vbNewLine & "Index: " & objSelection.FormattedText.HighlightColorIndex
  Wend
End With