從.PPT提取信息幻燈片

Question

如果我有一個.ppt幻燈片，我要提取的信息出來，和我建立了模板爲被不同的人通過了這些組織的所有幻燈片，我知道所有的對每個文本框對象的「名稱」，

我可以使用某些vb將.ppt幻燈片中的信息拖入訪問數據庫嗎？

我知道如何利用訪問的形式，並創建以同樣的方式輸入的信息PPT演示，只是逆過程。所以我假設如果我設置這些幻燈片，並將所有文本框命名爲我想命名它們，我應該能夠在相反的方向上做到這一點，對吧？

Answer 1

是的，你可以做相反的事情，並有權讀取幻燈片。我用兩張幻燈片創建了一個powerpoint 2007演示文稿，標題幻燈片和內容幻燈片。在一個空的訪問2007 db中，我添加了一個代碼模塊，並進行了以下測試。您還需要一個refrenence添加到在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對象中。

希望這可以幫助（對不起，我沒有辦公室2003年，但應該是非常相似）