Extrahieren von Informationen aus .ppt Dias

Question

Wenn ich ein .ppt Dia, dass ich Informationen aus extrahieren möge, und ich die Vorlage für all diese Folien auf, die von verschiedenen Personen durchgeführt die Organisation verwendet werden, und ich weiß, alle die „Namen“ zu jedem Text Box-Objekt,

kann ich einige vb verwenden diese Informationen ziehen aus den .ppt Dias in einer Access-Datenbank?

Ich weiß, wie eine Zugangsform zu nehmen und eine ppt Präsentation mit eingegebenen Informationen in der gleichen Art und Weise erstellen, nur umgekehrten Prozess. so gehe ich davon aus, dass, wenn ich diese PPT-Folien einrichten und benennen Sie alle die Textfelder, was ich möchte, dass sie nennen, dass ich in der Lage sein sollte, diese in die entgegengesetzte Richtung zu tun, nicht wahr?

Answer 1

Ja, Sie können das Gegenteil tun und haben Zugriff lesen Sie ein Powerpoint-Folie. Ich habe eine Powerpoint 2007-Präsentation mit zwei Rutschen, eine Titelfolie und ein Gehalt Folie. Innerhalb eines nüchternen access 2007 db, fügte ich eine Code-Modul mit dem folgenden Test. Sie werden auch eine refrenence zum Powerpoint-Objekt in dem Access-VBA-Projekt hinzufügen müssen.

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

Der Text, den Sie nach innerhalb des Texteffect-Objekts zugeordnet ist, die die Form Objekt enthalten sind.

hoffe, das hilft (sorry ich habe nicht von Office 2003 haben, aber sollte sehr ähnlich sein)