Format Text on NotesPage

[sbats]

In Notes Page view, I want to go through every notes page and change the first paragraph of each Text Frame to bold underlined text.

I can do it to a selected text frame with the following macro:

Sub setTextDetails()
With ActiveWindow.Selection.TextRange.Paragraphs(1).Font
.Bold = msoTrue
.Underline = msoTrue
End With
End Sub

[Paul_Hossler]

Try something like this



Sub setTextDetails()
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShape As Shape

Set oSlides = ActivePresentation.Slides
For Each oSlide In oSlides
For Each oShape In oSlide.NotesPage.Shapes
With oShape
If .Type = msoPlaceholder Then
If .PlaceholderFormat.Type = ppPlaceholderBody Then
If .HasTextFrame Then
If .TextFrame.HasText Then
With .TextFrame.TextRange.Paragraphs(1).Font
.Bold = msoTrue
.Underline = msoTrue
End With
End If
End If
End If
End If
End With
Next
Next
End Sub

[sbats]

Paul, Thanks again! That solution worked great!.