Macro to Find Delete

Sounds like you've recorded a macro, but you haven't looked at the resulting code (otherwise you would have posted it here!).

In Word press Atl+F11 to open the Visual Basic Editor.  Try to find your macro there, probably in a module called NewMacros, either in your docuement or in the Normal template, look in the top left corner in the Project Explorer pane of the VBE (post back if you can't find it).

In the mean time, try recording your macro by using Replace.  Ctrl+H opens the Replace dialog, and you can replace "@@" with "" (nothing), then click Replace All.  The resulting macro code should look like this:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@@"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

but the macro recorder doesn't always record efficient code.  The above could be simplified to:

Sub Macro1()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "@@"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub
 

Hope that helps.

Cheers
Rich