Вот макрос, который закрывает все дизайнеры и оставляет текстовые файлы открытыми:
Sub CloseAllDesigners()
Dim doc As Document
For Each doc In DTE.Documents
Dim win As Window
For Each win In doc.Windows
Select Case TypeName(win.Object)
Case "TextWindow", "HTMLWindow"
'keep opened
Case Else
'close
win.Close(vsSaveChanges.vsSaveChangesPrompt)
End Select
Next
Next
End Sub
См. Мое краткое руководство , как создать и выполнить макрос VS и назначить ему комбинацию клавиш или кнопку. Вы можете даже автоматически выполнить этот макрос перед каждой сборкой. В Макрос IDE Class View перейдите к MyMacros - EnvironmentEvents. Откройте (двойной щелчок) EnvironmentEvents. Вставьте следующий код внутри модуля:
Private Sub BuildEvents_OnBuildBegin( _
ByVal Scope As EnvDTE.vsBuildScope, _
ByVal Action As EnvDTE.vsBuildAction) _
Handles BuildEvents.OnBuildBegin
CloseAllDesigners()
End Sub