Вот макрос, который это делает. В Макрос IDE Class View перейдите к MyMacros - EnvironmentEvents. Откройте (двойной щелчок) EnvironmentEvents. Вставьте следующий код внутри модуля:
Private Sub BuildEvents_OnBuildDone( _
ByVal Scope As EnvDTE.vsBuildScope, _
ByVal Action As EnvDTE.vsBuildAction) _
Handles BuildEvents.OnBuildDone
Try
Dim activeWin As Window = DTE.ActiveWindow
Dim immedWin As Window = DTE.Windows.Item("{ECB7191A-597B-41F5-9843-03A4CF275DDE}")
immedWin.Activate()
DTE.ExecuteCommand("Edit.ClearAll")
activeWin.Activate()
Catch ex As Exception
End Try
End Sub
Здесь вы можете увидеть, как это должно выглядеть:
Смотрите мой краткий учебник , как создать и выполнить макрос VS .