Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
  For Each oPar In ActiveDocument.Paragraphs
    If InStr(oPar.Range.Text, "KKJJ ABC") > 0 Then oPar.Range.InsertAfter String(8, vbCr)
  Next oPar
End Sub