How to select a specific Textbox in a powerpoint slide with user selection

[ayrus]

Hello Everyone,

Is it possible to allow user to select a specific textbox using VBA and get word-count of that textbox?

thanks

[Aussiebear]

Maybe this will give you some ideas.

Option Explicit
 
 Sub CountSomeWords()
' Example of how to use WordsOnSlide
Dim oSl As Slide
Dim lWordCount As Long
For Each oSl In ActivePresentation.Slides
 lWordCount = lWordCount + WordsOnSlide(oSl)
Next
MsgBox lWordCount
End Sub
 
 Function WordsOnSlide(oSl As Slide) As Long
' Gives APPROXIMATE word count of the words in
' text boxes and normal shapes on a slide
' Does not count shapes in groups, text in charts
' smart art, graphics, etc.
Dim oSh As Shape
Dim lCount As Long
For Each oSh In oSl.Shapes
 If oSh.HasTextFrame Then
 If oSh.TextFrame.HasText Then
 lCount = lCount + oSh.TextFrame.TextRange.Words.Count
End If
 End If
Next
WordsOnSlide = lCount
End Function

[Faut1960]

geometry dash meltdown

Maybe this will give you some ideas.

Option Explicit
 
 Sub CountSomeWords()
' Example of how to use WordsOnSlide
Dim oSl As Slide
Dim lWordCount As Long
For Each oSl In ActivePresentation.Slides
 lWordCount = lWordCount + WordsOnSlide(oSl)
Next
MsgBox lWordCount
End Sub
 
 Function WordsOnSlide(oSl As Slide) As Long
' Gives APPROXIMATE word count of the words in
' text boxes and normal shapes on a slide
' Does not count shapes in groups, text in charts
' smart art, graphics, etc.
Dim oSh As Shape
Dim lCount As Long
For Each oSh In oSl.Shapes
 If oSh.HasTextFrame Then
 If oSh.TextFrame.HasText Then
 lCount = lCount + oSh.TextFrame.TextRange.Words.Count
End If
 End If
Next
WordsOnSlide = lCount
End Function

Thanks. I know what I have to do.