Как разделить слайд из презентации PowerPoint с помощью скрипта VBA или Apple

Как разделить слайд из презентации с помощью сценария VBA или Apple. Ранее я использовал код VBA для достижения того же, но в PowerPoint 16.13.1 я получаю сообщение об ошибке, поскольку «Mac PPT не поддерживает открытие файла в режиме без окон». и он работал с предыдущими версиями PowerPoint.

Sub SaveSlide(lSlideNum As Long, sFileName As String)

Dim oTempPres As Presentation
Dim x As Long

ActivePresentation.SaveCopyAs sFileName
' open the saved copy windowlessly
Set oTempPres = Presentations.Open(sFileName, , , False)

For x = 1 To lSlideNum - 1
    oTempPres.Slides(1).Delete
Next

' What was slide number lSlideNum is now slide 1
For x = oTempPres.Slides.Count To 2 Step -1
    oTempPres.Slides(x).Delete
Next

oTempPres.Save
oTempPres.Close
End Sub

В приведенном выше коде я получаю ошибку в этой строке

Set oTempPres = Presentations.Open(sFileName, , , False)

Помогите, пожалуйста.