meza's blog

Extract notes section from ppt

Greeting,
So i have to write an excel macro extracting filename, time &date stamp, and notes from powerpoint. the notes are supposed to be copied exactly as how they look in the notes section of the powerpoint. So i came up with this, i just need help copying the notes, can someone help me plz

Sub PptToExcel()
Dim Ops As Object
Dim PPApp As Object
Dim PPPres As Object
Dim Shp As Object

Range("A1").Value = "File Name"
Range("B1").Value = "Date and Time"
Range("C1").Value = "Notes"

Dim FileName As String
Dim File As String

Range("A5:A2000").ClearContents

Syndicate content