Извлечение информации из слайдов .ppt - PullRequest
Новая
       18

Извлечение информации из слайдов .ppt

1 голос
/ 05 октября 2009

Если у меня есть .ppt слайды, из которых я хочу извлечь информацию, и я настроил шаблон для всех этих слайдов, которые используются различными людьми во всей организации, и я знаю все «имена» для каждый объект текстового поля,

Могу ли я использовать какой-нибудь виртуальный диск для извлечения этой информации из слайдов .ppt в базу данных доступа?

Я знаю, как взять форму доступа и создать презентацию PPT с введенной информацией таким же образом, только обратный процесс. поэтому я предполагаю, что если я настрою эти слайды ppt и назову все текстовые поля, как я хочу их назвать, то я смогу сделать это в обратном направлении, верно?

1 Ответ

6 голосов
/ 05 октября 2009

Да, вы можете сделать наоборот и получить доступ к слайду PowerPoint. Я создал презентацию PowerPoint 2007 с двумя слайдами, слайдом с заголовком и слайдом с контентом. Внутри пустой базы данных 2007 года доступа я добавил модуль кода со следующим тестом. Вам также необходимо добавить ссылку на объект powerpoint в проекте Access VBA. 

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, но должно быть очень похоже)

...