Public Sub CalcSymCount()
    Dim CurrentSlide As Slide
    Dim i As Long
    Dim j As Long
    Dim SymCount As Long
    
    SymCount =  0 
    
    For i =  1  To ActivePresentation.Slides.Count
        Set CurrentSlide = ActivePresentation.Slides(i)
        
        For j =  1  To CurrentSlide.Shapes.Count
            If CurrentSlide.Shapes(j).TextFrame.HasText = msoTrue Then SymCount = SymCount + Len(CurrentSlide.Shapes(j).TextFrame.TextRange.Text)
        Next j
    Next i
    
    MsgBox "SymCount=" + Trim(Str(SymCount))
End Sub