从 .ppt 幻灯片中提取信息答案

【问题标题】：Extracting information from .ppt slides从 .ppt 幻灯片中提取信息
【发布时间】：2010-12-03 19:41:20
【问题描述】：

如果我有一张.ppt 幻灯片，我想从中提取信息，我为所有这些幻灯片设置了模板，供整个组织中的不同人员使用，并且我知道所有“名称”每个文本框对象，

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

我知道如何以相同的方式获取访问表单并使用输入的信息创建 ppt 演示文稿，只是相反的过程。所以我假设如果我设置了这些 ppt 幻灯片，并将所有文本框命名为我想要命名的内容，我应该能够在相反的方向上执行此操作，对吗？

【问题讨论】：

标签： ms-access vba ms-access-2003 powerpoint

【解决方案1】：

是的，您可以反过来阅读幻灯片。我用两张幻灯片、一张标题幻灯片和一张内容幻灯片创建了一个 PowerPoint 2007 演示文稿。在一个空的 access 2007 db 中，我添加了一个带有以下测试的代码模块。您还需要在 Access VBA 项目中添加对 powerpoint 对象的引用。

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 对象中。

希望这会有所帮助（对不起，我没有 Office 2003，但应该非常相似）

【讨论】：