I've used AutoHotKey for a lot of things before and it may be the best way to go. You can use CoPilot or ChatGPT to further refine and troubleshoot.


Use AutoHotKey to write a script to do it. Probably something like this:

-------- Put the text below into the script ---------

; This script will save all open PowerPoint files
Loop, %A_ProcessName%_ppt.exe
{
Send !f ; This sends Alt + F, which opens the File menu
Sleep, 100
Send s ; This sends the Save command
Sleep, 100
}



OR Perhaps in PowerPoint:
Open the VBA editor (Alt + F11) You might have to add it in settings:
Then insert a new module and try something like the following:

Sub SaveAllPowerPoints()
Dim xPPT As Object
Dim xPresentation As Object
On Error Resume Next
Set xPPT = GetObject("", "PowerPoint.Application")
On Error GoTo 0
If xPPT Is Nothing Then Set xPPT = CreateObject("PowerPoint.Application")
For Each xPresentation In xPPT.Presentations
If Not xPresentation.ReadOnly Then xPresentation.Save
Next xPresentation
Set xPresentation = Nothing
Set xPPT = Nothing
End Sub