-- apply-backgrounds.applescript -- Calls the ApplyBackgrounds VBA macro: set per-slide BACKGROUND FILLS in bulk -- from a "<1-based #>=/path[;#=/path2 ...]" spec, then save a COPY. -- osascript apply-backgrounds.applescript on run argv if (count of argv) < 3 then error "Expected 3 args: basePath outPath specStr" tell application "Microsoft PowerPoint" activate with timeout of 1800 seconds set rc to run VB macro macro name "ApplyBackgrounds" list of parameters {item 1 of argv, item 2 of argv, item 3 of argv} end timeout end tell if (rc as string) starts with "ERROR" then error (rc as string) & " — confirm DeckOps.pptm is open with macros enabled and Automation consent granted." return "ApplyBackgrounds returned: " & rc end run