Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim oRngProcess As Word.Range
  Set oRng = Selection.Range
  Set oRngProcess = oRng.Duplicate
  With oRng.Find
    .Text = InputBox("Enter text to find.")
    Do
      .Execute
      If oRng.InRange(oRngProcess) Then
        With oRng
          If Len(oRng) = 0 Then Exit Do
          .Font.ColorIndex = wdRed
          .Font.StrikeThrough = True
          .Collapse wdCollapseEnd
        End With
      Else
        Exit Do
      End If
    Loop
  End With
End Sub