VBA/Excel/Access/Word/PowerPoint/Presentations
Saving All Open Presentations
<source lang="vb">
Sub Save_All_Presentations()
Dim myPresentation As Presentation For Each myPresentation In Presentations If myPresentation.Path <> "" Then myPresentation.Save Next myPresentation
End Sub
</source>