No.3
607
108
150pt
http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F200...
[hondarer-soft] to [cx20.main.jp]
とりあえず版ですが、作ってみました。
（テキストファイルに出力するのではなく、デバッグウィンドウに表示するバージョンです。）
＜使い方＞
1. Power Point の「Visual Basic Editor」を起動。
2. [挿入] - [標準モジュール] を選択。
3. 下記のコードを貼り付け。
4. [表示] - [イミディエイトウィンドウ] を選択。
5. [実行] - [Sub/ユーザー フォームの実行] を選択。
これで、「イミディエイトウィンドウ（デバッグウィンドウ）」に
テキストボックスの内容が表示されます。
Sub TextBoxToDebugPrint()
Dim slide
For Each slide In ActiveWindow.Parent.Slides
Dim shape
For Each shape In slide.Shapes
Debug.Print shape.TextFrame.TextRange.Text
Next
Next
End Sub
No.1
441
100pt
URLはダミーです。
PowerPoint 2002を使用している者ですが、
メニューバーの
「ファイル(F)」→プロパティ→詳細情報
ではだめでしょうか（ご存知でしたらすみません）。
一応、段落数、単語数に加えて、文字総数がバイト数で表示されます。全角1文字を2バイトとすると、÷２で全角文字としての相当数がカウントできるかと思います。
2002なんて・・・(>_<)
そんな新しいのもってないもんっ！
あ。ありがとうございます。試してみます。
No.3
607108
ここでベストアンサー
150pt
http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F200...
[hondarer-soft] to [cx20.main.jp]
とりあえず版ですが、作ってみました。
（テキストファイルに出力するのではなく、デバッグウィンドウに表示するバージョンです。）
＜使い方＞
1. Power Point の「Visual Basic Editor」を起動。
2. [挿入] - [標準モジュール] を選択。
3. 下記のコードを貼り付け。
4. [表示] - [イミディエイトウィンドウ] を選択。
5. [実行] - [Sub/ユーザー フォームの実行] を選択。
これで、「イミディエイトウィンドウ（デバッグウィンドウ）」に
テキストボックスの内容が表示されます。
Sub TextBoxToDebugPrint()
Dim slide
For Each slide In ActiveWindow.Parent.Slides
Dim shape
For Each shape In slide.Shapes
Debug.Print shape.TextFrame.TextRange.Text
Next
Next
End Sub
ありがとうございます。
全部のslideについてだよ
slide内に含まれる全部のshapeだよ。
TextFrame.TextRange.Textをデバッグウィンド ウにプリントしてね
次のshapeくりかえし
次のslide繰り返し
こういうことですね。助かりました。
2
252
245
ありがとうございます。
全部のslideについてだよ
slide内に含まれる全部のshapeだよ。
TextFrame.TextRange.Textをデバッグウィンド ウにプリントしてね
次のshapeくりかえし
次のslide繰り返し
こういうことですね。助かりました。