Sub COPYPAR()
Dim oPar As Paragraph, oRng As Range
  Set oPar = Selection.Paragraphs(1)
  Set oRng = oPar.Range
  With oRng.Find
    .ClearFormatting
    .Text = "="
    If .Execute Then
      oRng.Start = oPar.Range.Start
      oPar.Range.InsertAfter oRng.FormattedText & vbCr
    End If
  End With
lbl_Exit:
  Exit Sub
End Sub