Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oDoc As Word.Document
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "cc"
    While .Execute
      If oRng.Start = oRng.Paragraphs(1).Range.Start Then
        With oRng
          .MoveEnd wdParagraph
          With .Font
            .Name = "Times New Roman"
            .Size = 12
          End With
          .Collapse wdCollapseEnd
        End With
      End If
    Wend
  End With
End Sub