Ananda,
The following is a basic macro for finding "The" (with a capital "T") and a
period "." and formatting them with red font color.
What specifically are you trying to do?
Sub Sratchmacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "The"
.MatchCase = True
.Replacement.Font.Color = wdColorRed
.Execute Replace:=wdReplaceAll
.Text = "."
.Execute Replace:=wdReplaceAll
End With
End Sub