Sub SentenceExactRepeatChecker()
' Paul Beverley - Version 14.02.23
' Unprotects the current file

Set rngOld = ActiveDocument.Content
Documents.Add
Set rng = ActiveDocument.Content
rng.Text = rngOld.Text

For Each sn In ActiveDocument.Sentences
  myText = sn.Text
  Debug.Print myText
  For Each snTest In ActiveDocument.Sentences
    If sn.Start <> snTest.Start Then
      sn.Select
      If snTest.Text = myText Then
        sn.HighlightColorIndex = wdYellow
        snTest.HighlightColorIndex = wdBrightGreen
      End If
    End If
    DoEvents
  Next snTest
  DoEvents
Next sn
Beep
End Sub