PowerPoint

Notes from slides into text document

Ease of Use

Easy

Version tested with

2000 

Submitted by:

Brandtrock

Description:

Takes the text from the notes section of slides in a presentation and makes a text document containing them. 

Discussion:

My son's third grade teacher is huge into PowerPoint presentations that are made by the children. The notes section contains their description of the slide. I wanted to take these out in the form of a text document so I could read along as I viewed his slides in the slideshow. After getting the code to work for that purpose, I have found it helpful in several other presentations I have used. 

Code:

instructions for use 

			
Option Explicit 
 
Sub Notes2Text() 
     
    Dim intSlide As Integer 
    Dim strFileName As String 
    Dim strTemp As String 
    Dim strNotes As String 
     
    strFileName = "c:\Notes.txt" 'change to location and name of your choice
     
    strTemp = MsgBox("Include labels in the text file?", _ 
    vbQuestion + vbYesNoCancel, "Label Treatment") 
     
    If strTemp = vbCancel Then Exit Sub 
     
    Open strFileName For Output As #1 
    With ActivePresentation 
        If strTemp = vbYes Then 
            Print #1, "strFileName " & .Name 
            Print #1, "-----" 
            Print #1, "" 
        End If 
        For intSlide = 1 To .Slides.Count 
            If strTemp = vbYes Then Print #1, "Slide: " & intSlide 
            strNotes = ActivePresentation.Slides(intSlide).NotesPage. _ 
            Shapes.Placeholders(2).TextFrame.TextRange.Text 
            Print #1, strNotes 
            If strTemp = vbYes Then Print #1, "========" 
        Next intSlide 
    End With 
    Close #1 
     
End Sub

How to use:

  1. Open the presentation you want to take notes out of.
  2. Press Alt + F11 to launch the Visual Basic Editor (VBE).
  3. Insert a new module (Insert - Module on the menu)
  4. Copy the Code above.
  5. Paste it into the right hand pane.
  6. Save the project (File - Save from the menu or click the disk icon).
 

Test the code:

  1. From the PowerPoint application window, run the macro by hitting Alt + F8 and selecting Notes2Text from the list of macros in the window.
  2. Respond to the message box as desired.
  3. Locate the text file on the C:\ drive (or wherever it was directed to by the code)
  4. Open the text file and inspect for the desired results.
 

Sample File:

NotesFromSlide.zip 9.3KB 

Approved by mdmackillop


This entry has been viewed 138 times.

Please read our Legal Information and Privacy Policy
Copyright @2004 - 2020 VBA Express