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 137 times.

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