关于红色革命的美文,如何自动查找文章中句子，如果找到一个重复的用红色标识出来。

关于红色革命的美文,如何自动查找文章中句子，如果找到一个重复的用红色标识出来。

准确来说，VBA不具有通用性，所以提供的代码仅供参考。 Sub 重复标记()Dim I As Paragraph, oSen As Range, MySearchRange As RangeDim MyArray() As String, aArray As VariantOn Error Resume Next '忽略错误，继续执行下一条命令With ThisDocument '遍历该文档For Each I In .Paragraphs '跳过空白段落或到达最后段落则进入下一循环If VBA.Len(I.Range) = 1 Or I.Range.Start = .Content.Paragraphs.Last.Range.Start Then GoTo GN '定义一个查找对象为下一段落开始到文档结束Set MySearchRange = .Range(I.Range.End, .Content.End) '指定RANGE的范围With MySearchRange.Find '在指定的RANGE范围中查找MyArray = VBA.Split(I.Range, ，) '以逗号为分隔符.ClearFormatting '清除查找格式For Each aArray In MyArray '以下为在句子中循环Do While .Execute(findtext:=aArray)MySearchRange.Paragraphs(1).Range.Font.Color = wdColorRed '如果查找到重复内容,则标记为红色（ 蓝色标识 wdcolorBlue ）LoopNextEnd WithGN: NextEnd WithEnd Sub