Как разделить слайд из презентации PowerPoint, используя скрипт VBA или Apple

Question

Как разделить слайд из презентации, используя скрипт 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)

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