人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

パワーポイントのファイルに含まれる文字についてワードカウントがしたいのです。先ほどhttp://www.hatena.ne.jp/1088259183の質問で解決したかと思いきや、枠があるとか、なにやら上手くいかないものもあったのです。自動的に、テキストボックスの中身をコピーしてtxtなり何なりにペーストする方法、お願い致します。(質問長い・・・ごめん)

●質問者: satosu
●カテゴリ:ビジネス・経営 学習・教育
✍キーワード:txt いもの カウント コピー テキスト
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● natumezaka
●100ポイント

http://office.microsoft.com/home/default.aspx

URLはダミーです。

PowerPoint 2002を使用している者ですが、

メニューバーの

「ファイル(F)」→プロパティ→詳細情報

ではだめでしょうか(ご存知でしたらすみません)。

一応、段落数、単語数に加えて、文字総数がバイト数で表示されます。全角1文字を2バイトとすると、÷2で全角文字としての相当数がカウントできるかと思います。

◎質問者からの返答

2002なんて・・・(>_<)

そんな新しいのもってないもんっ!

あ。ありがとうございます。試してみます。


2 ● bondo
●10ポイント

http://www.asahi-net.or.jp/~jn5y-kjm/network/mojicounter.html

文字カウンター

パワーポイント開いて左側のウィンドウを全部選択してください

右クリック→コピー→もじもじカウンターにペースト→カウント

で解決かな??

◎質問者からの返答

解決しちゃうかも。


3 ● cx20
●150ポイント ベストアンサー

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繰り返し

こういうことですね。助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ