PowerPoint possible bug VBA

Question

Eventsub WindowSelectionChange(ByVal Sel As Selection)

Error accessing a NotesPage

Selecting a NotesPage Sel/ActiveWindow.Selection has no ShapeRange. This obviously a bug? A Textrange needs a hosting Shape.

Work a round:

If TextRange has no Parent (Shape) I guess Sel is selecting the Notespage

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

If Sel.Type = ppSelectionText Then

If Sel.TextRange.Parent Is Nothing And Sel.SlideRange.HasNotesPage Then

    Application.Caption = "Word.Count( NotesPage )= " & Sel.SlideRange.NotesPage.Shapes.Placeholders(ppPlaceholderBody).TextFrame.TextRange.Words.Count

  Else

    Application.Caption = "Word.Count( " & Sel.ShapeRange(1).Name & " )= " & Sel.ShapeRange(1).TextFrame.TextRange.Words.Count

  End If

End If

End Sub

Answer 1

This code runs oK for me when I select a text placeholder on the notes page -are you sure you have initialized the event>

Public WithEvents EV As Application

Private Sub EV_WindowSelectionChange(ByVal Sel As Selection)

If Sel.Type = ppSelectionText Then

Debug.Print Sel.TextRange.Parent.Parent.Name

Application.Caption = Sel.TextRange.Parent.Parent.Name

End If

End Sub

Answer 2

No, the Selection is in a Notespage:

Sel.SlideRange.NotesPage.Shapes.Placeholders(ppPlaceholderBody).TextFrame.TextRange.Text

no table in Selection

BTW:  Thank you for sharing your knowledge of ms office and follow through this thread.

I found this problem making a video to handle an eventclass

https://youtu.be/zVVIuYp\_esQ

Answer 3

Is the current text selection part of a table?  In that case, yes, it's a known bug.  The .Parent chain in selected table text is broken.

Answer 4

You are right. But this case does go wrong.  This is why I assume a bug..

Selection is in NotesPage

ShapeRange ist not valid

TextRange Parent is nothing

Answer 5

The Parent of a TextRange isn't a slide, it's a TextFrame.

To get the parent shape, use TextRange.Parent.Parent

To get the parent slide, us TextRange.Parent.Parent.Parent

Unless the selected text is part of a table; in that case, set your hair on fire and run screaming into the weeds.  Tables are buggy.