Макрос Visual Studio: Как выполнить “Файл->, Сохраняют Все” программно

Я ищу эквивалент "петляния->, Сохраняют Все" перед определенными макросами Граблей.

Что я имею, до сих пор:

Private Sub Pre_Rake()
        Dim i As Integer

        DTE.Documents.SaveAll()

        For i = 1 To DTE.Solution.Projects.Count
            If Not DTE.Solution.Projects.Item(i).Saved Then
                DTE.Solution.Projects.Item(i).Save()
            End If
        Next
End Sub

DTE.Documents. SaveAll хорошо работает, но для цикла не сохранил файлы проекта, как я ожидал бы.

Если я делаю копию файла в проводнике решения, тот файл не включен в файл проекта (.CSPROJ) после Pre_Rake () выполнения. Я должен был бы все еще нажать CTRL-SHIFT-S или File-> Save All.

Так, как Сохранить Все с Макросом Visual Studio?