プロが教えるわが家の防犯対策術!

具体的にはパワーポイント内の総文字数を知りたいのですが、現在、各テキストボックスからワードにコピペして(D&D)、ワードの文字カウント機能を使って文字数を出しています。
もっと効率の良い方法をご存じでしたら是非教えてください!
PPTには、アウトラインはなく、テキストボックスとグラフのみで、送信→ワードも使えません。
原始的な作業がこの暑さにはつらいです!
よろしくお願いします!!!

A 回答 (1件)

マクロで数えるのがいいかと思います。


標準モジュールを挿入して以下を
コピペして使ってみてください。
'------------------------------------------
Public Sub 文字数カウント()
Dim c, i, p As Slide, s As Shape
c = 0
For Each p In ActivePresentation.Slides
For i = 1 To p.Shapes.Count
Set s = p.Shapes.Item(i)
If s.HasTextFrame Then
c = c + Len(s.TextFrame.TextRange.Text)
End If
Next
Next
MsgBox c

End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました。
無事カウントできました。

久しぶりにVBA起動してどきどきしてしまいましたが、問題なく実行できました。

お礼日時:2005/08/16 10:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!