Microsoft Office Tutorials and References
In Depth Information
Sending Word Outline to Notes Section of PowerPoint
View the Appendix to learn how to store this procedure
in a Standard module.
Option Explicit¶
' * * * * *¶
Sub OutlineLevel2Notes()¶
'Variable declaration¶
Dim varSlideNum As Integer¶
Dim varLineNum As Integer¶
With ActivePresentation¶
For varSlideNum = 1 To .Slides.Count¶
With .Slides(varSlideNum).Shapes.Placeholders(2)¶
'Check if there is a text frame, if not, then there really _¶
is not any point in looking at this slide any longer¶
If .HasTextFrame Then¶
With .TextFrame.TextRange¶
'Now loop thru the lines of text _¶
within the placeholder textbox,but go backwards.¶
For varLineNum = .Lines.Count To 1 Step -1¶
If .Lines(varLineNum).IndentLevel > 4 Then¶
ActivePresentation.Slides(varSlideNum) _¶
.NotesPage.Shapes(2) _¶
.TextFrame.TextRange.Text = _¶
.Lines(varLineNum).Text & vbCr & _¶
ActivePresentation.Slides(varSlideNum) _¶
.NotesPage.Shapes(2) _¶
'removes text from frame¶
.Lines(varLineNum).Text = ""¶
End If¶
'Proceed to the next slide.¶
Next varLineNum¶
End With¶
'Done checking if there is a textframe¶
End If¶
End With¶
'Proceed to the next slide.¶
Next varSlideNum¶
End With¶
End Sub¶
The presentation created AFTER using the File | Send to | Microsoft
PowerPoint command from the menu is where the Standard module should be
Tip: This is a PowerPoint design mode macro. That means it will not run while viewing a
PowerPoint show.
Search JabSto ::

Custom Search