Вариант "через ж...": вручную скопировать в Ворд и считать там с помощью местной статистики. Это если кадров немного. Впрочем, если кадров много, то и денег больше!

Зависнет-не зависнет, а попробовать можно было бы.

Можно еще распознать автоматически и сохранить в Word – меньше телодвижений, чем копированием каждого слайда.

Disclaimer: данное сообщение не является рекламой, дается на правах совета и может быть удалено в любую минуту

Я никогда не вел расчетов за РР в знаках. Вы прекрасно знаете, что иную надпись в три буквы надо вписывать в контекст, так сказать, полчаса, при этом меняя и подбирая цвет фона. Поэтому - только на почасовой основе.

Само собой, данное сообщение не является рекламой, дается на правах совета и может быть удалено в любую минуту

Attribute VB_Name = "Module1"
Public Sub TextSymbols()
Dim PPT As Slide
Dim i As Long
Dim j As Long
Dim k As Long
Dim Symbs As Long

On Error GoTo SysErr

If Windows.Count = 0 Then
MsgBox "Необходимо открыть файл презентации.", vbExclamation + vbOKOnly
Exit Sub
End If

Symbs = 0

For i = 1 To ActivePresentation.Slides.Count
Set PPT = ActivePresentation.Slides(i)

For j = 1 To PPT.Shapes.Count
If PPT.Shapes(j).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).TextFrame.TextRange.Text)

If PPT.Shapes(j).GroupItems.Count > 0 Then
For k = 1 To PPT.Shapes(j).GroupItems.Count
If PPT.Shapes(j).GroupItems(k).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).GroupItems(k).TextFrame.TextRange.Text)
Next k
End If
Next j
Next i

MsgBox "Символов=" + Trim(Str(Symbs))

SysErr:
Resume Next
End Sub

кж - ну да, такое не каждое осилит ;))))