非高亮非字符底纹，到底是什么特征？

floor6

单位考试，题库应该是网上下载的，具体是怎么下载的真不清楚，用来考核过场的。。。。

现在想把粉色的区域给提取出来，如下题，。。。。

悲催的是，弄了一个晚上，一筹莫展，因为水平较水，找不到它的特征，特征搞不清楚，没办法进行下一步的提取了……

只知道应该不是高亮，也不是字符底纹………………

看各位大大，有什么办法把该粉色的区域提取出来…………如果直接是红色标记的字体，那就 .Font.ColorIndex简单多了…………可惜不是…………手工写答案上去，真要哭死啊…………

Sub DetectProperty()‘立即窗口没有发现以下3种特性有什么区别…………

For i = 1 To 5

  Debug.Print ActiveDocument.Paragraphs(i).Range.Font.Shading.BackgroundPatternColor

  Debug.Print ActiveDocument.Paragraphs(i).Range.Font.Shading.ForegroundPatternColor

  Debug.Print ActiveDocument.Paragraphs(i).Range.HighlightColorIndex

Next

End Sub

floor6

自行解决，低级错误，属性用错了，BackgroundPatternColor，而不是.Font.Shading！！

Sub BackgroundPatternColor()
For i = 1 To 5
Set myRange = ActiveDocument.Paragraphs(i).Range
Debug.Print myRange.Shading.BackgroundPatternColor ' = wdColorTurquoise
Next
End Sub

运行后可以看出几个区域之间的差别……………………