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>