Sub Test_Macro()
'Copy a range from the current para's start till after "=" and
'paste it after the para.

Dim oRng As range

  Set oRng = selection.Paragraphs(1).range
  oRng.Copy
  selection.Find.ClearFormatting
  selection.Find.Replacement.ClearFormatting
  With oRng.Find
    .text = "="
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    If .Execute Then
      oRng.InsertAfter vbCr
      oRng.Paragraphs(1).Next.range.FormattedText = oRng.Paragraphs(1).range.FormattedText
      oRng.Paragraphs(1).range.PasteAndFormat (wdFormatOriginalFormatting)
    End If
  End With
lbl_Exit:
  Exit Sub
End Sub