Sub Demo()
Dim oFld As Field
With ActiveDocument
  For Each oFld In .Fields
    If oFld.Type = wdFieldMacroButton Then
      If Trim(oFld.Code.Text) = "MACROBUTTON  MacroAddProduct Add new product" Then oFld.Delete
    End If
  Next
End With
End Sub