Removing trailing whitespaces in Visual Studio

The following will remove trailing whitespaces whenever you save a file in Visual Studio 2008. Convenient!

1. Go to Tools -> Macros -> Macro Explorer
2. Double click "MyMacros -> Module1
3. In the new Project Explorer Tree, double click on "EnvironmentEvents" above "Module1"
4. After the #End Region for #Region "Automatically generated code, do not modify", add the following:

   Private saved As Boolean = False
       Private Sub DocumentEvents_DocumentSaved(ByVal document As EnvDTE.Document) _
                                                Handles DocumentEvents.DocumentSaved
           If Not saved Then
               Try
                   ' Remove all the trailing whitespaces.
                   DTE.Find.FindReplace(vsFindAction.vsFindActionReplaceAll, _
                                        "{:Zs|\t}+$", _
                                        vsFindOptions.vsFindOptionsRegularExpression, _
                                        String.Empty, _
                                        vsFindTarget.vsFindTargetCurrentDocument, , , _
                                        vsFindResultsLocation.vsFindResultsNone)
   
                   saved = True
                   document.Save()
               Catch ex As Exception
                   MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Trim White Space exception")
               End Try
           Else
               saved = False
           End If
       End Sub