Sub ClearHighlight()
  Dim hiliRng As Range

    For Each hiliRng In ActiveDocument.StoryRanges
        With hiliRng.Find
            .Highlight = True
            .Execute
        End With

        Do While hiliRng.Find.Execute
            If hiliRng.HighlightColorIndex = wdTurquoise Then
                hiliRng.HighlightColorIndex = wdNoHighlight
                hiliRng.Collapse 0
            End If
        Loop

        If hiliRng.StoryType <> wdMainTextStory Then
            While Not (hiliRng.NextStoryRange Is Nothing)
                Set hiliRng = hiliRng.NextStoryRange
                Do While hiliRng.Find.Execute
                    If hiliRng.HighlightColorIndex = wdTurquoise Then
                        hiliRng.HighlightColorIndex = wdNoHighlight
                        hiliRng.Collapse 0
                    End If
                Loop
            Wend
        End If
    
    Next hiliRng
    Set hiliRng = Nothing

End Sub