excel - PDF をページごとに新しいファイルに分割する - Excel VBA

Question

PDFをページごとに複数の新しいファイルに分割しようとしています。このコードをExcel フォーラムで見つけ 、フォルダー パスとファイルに合わせて変更しました。Acrobat.tdl ライブラリも参照に追加しました。(実際の acrobat pro はインストールしていません。このリンクで提案されている手順に従いました) 。

ただし、コードを実行しようとすると、エラーが発生します - 実行時エラー '429': ActiveX コンポーネントはオブジェクトを作成できません。回線でエラーが発生Set PDDoc = CreateObject("AcroExch.pdDoc")

完全なコードは次のとおりです。

Sub SplitPDF()
  Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc
  Dim PDPage As Acrobat.CAcroPDPage
  Dim thePDF As String, PNum As Long
  Dim f As String, i As Integer, Result As Variant, NewName As String
  
  f = ThisWorkbook.Path & "\"
  thePDF = f & "CDE_9740240D_2020-09-08.pdf"
  
  Set PDDoc = CreateObject("AcroExch.pdDoc")
  Result = PDDoc.Open(thePDF)
  If Not Result Then
     MsgBox "Can't open file: " & thePDF
     Exit Sub
  End If
  
  '...
  PNum = PDDoc.GetNumPages
  
  For i = 0 To PNum - 1
    Set newPDF = CreateObject("AcroExch.pdDoc")
    newPDF.Create
    NewName = f & " Page_" & i & "_of_" & PNum & ".pdf"
    newPDF.InsertPages -1, PDDoc, i, 1, 0
    newPDF.Save 1, NewName
    newPDF.Close
    Set newPDF = Nothing
  Next i
End Sub

誰かがこのコードを機能させるのを手伝ってくれませんか?