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.Start = oRng.Start - 1
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    With oRng.Find
        .text = "^13[!^13]@="
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        If .Execute Then
            oRng.Start = oRng.Start + 1
            oRng.Copy
            selection.Paragraphs(1).range.Select
            selection.Collapse wdCollapseEnd
            selection.InsertAfter vbCr
            selection.Collapse
            selection.PasteAndFormat (wdFormatOriginalFormatting)
        End If
    End With
End Sub