Sub RemoveExclusiveAttributes()
    Dim originalSyntax = DTE.Find.PatternSyntax
    Dim originalWhat = DTE.Find.FindWhat
    Dim originalTarget = DTE.Find.Target
    Dim originalAction = DTE.Find.Action
 
    DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
    DTE.Find.FindWhat = "[Exclusive]"
    DTE.Find.Target = vsFindTarget.vsFindTargetCurrentProject
    DTE.Find.Action = vsFindAction.vsFindActionFind
 
    While (DTE.Find.Execute() = vsFindResult.vsFindResultFound)
        DTE.ExecuteCommand("Edit.LineDelete")
    End While
 
    DTE.Find.PatternSyntax = originalSyntax
    DTE.Find.FindWhat = originalWhat
    DTE.Find.Target = originalTarget
    DTE.Find.Action = originalAction
End Sub