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
  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
    End If
  End With
lbl_Exit:
  Exit Sub
End Sub