Vba 是否有方法导入多页PDF'；幻灯片里有什么？

我需要导入14个pdf文件到一个powerpoint每天的日常会议。我已使用VBA成功导入PDF，但它仅导入第一页。我的一些PDF将有多个页面

pdf都是从access数据库中生成的，并且需要采用pdf格式，因为它们也会发送给其他位置的人。powerpoint仅供我们团队使用

公共函数导入报告（）
将shp变暗为形状
将sld变暗为幻灯片
作为字符串的Dim fpath
作为字符串的Dim fname
作为字符串的Dim strFileSpec
暗电位与长电位相同
Dim Free作为布尔值
将SLD计数设置为整数
sldCount=1
fpath=“K:\Dept\Erie Eng\Erie\ZSPEC\application engineering\Zurn application engineering Project Management\Gemba Files\”&格式（现在为“yyyy”）&“\”&格式（现在为“yyyy\u-mm”）&“\”
潜在日期=格式（日期，“0，####.0000”）-1
'MsgBox fpath&Format（潜在日期，“yyyy\u mm\u dd”）
直到自由=真
如果Len（Dir（fpath&Format（PotentialDate，“yyyyy\u mm\u dd”），vbDirectory））=0，则
PotentialDate=DateAdd（“d”，-1，PotentialDate）
'MsgBox fpath&Format（潜在日期，“yyyy\u mm\u dd”）
其他的
自由=真实
fpath=fpath&Format（可能的日期，“yyyy\u-mm\u-dd”）和“\”
如果结束
环
strFileSpec=fpath&“*.pdf*”
'MsgBox strFileSpec
fname=Dir（strFileSpec，vbDirectory）
'MsgBox fname
当Len（fname）>0时执行
关于错误转到mkslide
设置sld=ActivePresentation.Slides（sldCount）
设置shp=sld.Shapes.AddOLEObject（0,0,11#*72,8.5*72，fpath&fname，msoFalse，，msoFalse）
fname=Dir
sldCount=sldCount+1
环
退出功能
幻灯片：
设置sld=ActivePresentation.Slides.AddSlide（ActivePresentation.Slides.Count+1，ActivePresentation.Slides（1）.CustomLayout）
下一步继续
端函数

---

我需要能够插入额外的pdf页面，并将它们插入各自的幻灯片中。

如果您安装了Acrobat的完整版本，这是可能的。然后，您可以使用VBA解决方案，如Kenneth Hobson的回答：John，对于真正的男人，我已经找了几个小时了。这会有用的！我将不得不让它重新删除一页一页的文件后！非常感谢。