从.ppt幻灯片中提取信息

Question

如果我有一个.ppt幻灯片,我想从中提取信息,我为各个人在整个组织中使用的所有幻灯片设置模板,并且我知道每个文本框对象的所有"名称",

我可以使用一些vb将这些信息从.ppt幻灯片中提取到访问数据库中吗？

我知道如何获取访问表单并以相同的方式创建输入信息的ppt演示文稿,只需要反向过程.所以我假设如果我设置这些ppt幻灯片,并将所有文本框命名为我想要命名的那些,我应该能够在相反的方向上做到这一点,对吧？

Answer 1

是的,您可以执行相反的操作并访问powerpoint幻灯片.我创建了一个带有两个幻灯片的powerpoint 2007演示文稿,一个标题幻灯片和一个内容幻灯片.在一个空访问2007 db中,我添加了一个带有以下测试的代码模块.您还需要为Access VBA项目中的powerpoint对象添加一个refrenence.

Public Sub ImportPowerPoint()
    Dim app As PowerPoint.Application
    Dim pres As PowerPoint.Presentation
    Dim ps As PowerPoint.Presentations
    Set app = New PowerPoint.Application
    app.Activate
    Set pres = app.Presentations.Open("C:\Temp\title slide.pptx")
    Debug.Print pres.Slides(1).Shapes(1).Name & " " & pres.Slides(1).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(1).Shapes(2).Name & " " & pres.Slides(1).Shapes(2).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(1).Name & " " & pres.Slides(2).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(2).Name & " " & pres.Slides(2).Shapes(2).TextEffect.Text
End Sub

您所追随的文本包含在与形状对象关联的TextEffect对象中.

希望这会有所帮助(对不起,我没有办公室2003,但应该非常相似)