Sub FormatAll() For Each proj As Project In DTE.Solution.Projects FormatFileRecur(proj.ProjectItems()) Next End Sub Sub FormatFileRecur(ByVal projectItems As EnvDTE.ProjectItems) For Each pi As EnvDTE.ProjectItem In projectItems If pi.Collection Is projectItems Then Dim pi2 As EnvDTE.ProjectItems = pi.ProjectItems Try If pi.Name.EndsWith(".cs") Then If Not (pi.Name.EndsWith("Designer.cs")) Then If Not pi.IsOpen Then pi.Open(Constants.vsViewKindCode) pi.Document.Activate() DTE.ExecuteCommand("Edit.FormatDocum...