Find and replace with VBA in Word

Sub ColorLine()
Dim flag As Boolean
Dim strF As Integer
Dim strS As Integer
ActiveDocument.Range(ActiveDocument.Characters.Count - 1) = _
ActiveDocument.Range(ActiveDocument.Characters.Count - 1)
Do
Selection.Find.ClearFormatting
With Selection.Find
.text = "'''"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Execute
If .Found = False Then Exit Do
End With
strS = Selection.End
If flag = True And strS = strF Then Exit Do
If flag = False Then strF = Selection.End
ActiveDocument.Range(Selection.Start, Selection.GoTo(wdGoToLine, wdGoToRelative, 1).Start - 1).Font.Color = wdColorRed
flag = True
Loop
End Sub