Text aus Powerpoint extrahieren

Forumthread: Text aus Powerpoint extrahieren
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Text aus Powerpoint extrahieren

14.06.2008 21:57:00

Peter

Hallo liebe Gemeinde,
ich habe folgendes Problem:
Ich würde gerne den Text eines Textfeldes in Powerpoint in word oder Excel per VBA kopierne lassen. DAs ganze soll dann automatisch über alle Folien in Powerpoint laufen und den Inhalt der Textboxen untereindern in word oder in verschieden Zellen in Excel.
Ist eine deratige Prozedure möglich?
Besten dank und LG
Peter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text aus Powerpoint extrahieren

15.06.2008 01:19:36

Josef

AW: Text aus Powerpoint extrahieren

15.06.2008 01:19:36

Josef

Hallo Peter,
ohne Fehlerbehandlung.
Sub ExtractTextFromPPT()
Dim objPPT As Object, objSlide As Object, objShape As Object
Dim lngRow As Long

Set objPPT = CreateObject("Powerpoint.Application")

With objPPT
    .Visible = True
    .Presentations.Open "F:\Temp\test.ppt", msoFalse
    For Each objSlide In .ActivePresentation.slides
        For Each objShape In objSlide.Shapes
            lngRow = lngRow + 1
            Cells(lngRow, 1) = objShape.TextFrame.TextRange.Text
        Next
    Next
    .Quit
End With

Set objPPT = Nothing

End Sub

Gruß Sepp