A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
JCountなら、PPTファイルを全角文字と半角カタカナ、半角英数などの種類ごとにも文字数をカウントできます。
PPTだけでなく、DOC(ワード)、XLS(エクセル)ファイルも文字カウント可能です。本文だけでなく、上記全てのドキュメントでテキストボックスやオートシェイプ、その他オブジェクト内の文字のカウントが出来ます。私はこのフリーソフトの作者です。私の知る限りそのようなフリーソフトが見つからなかったので作成しました。
参考URL:http://bgworks.info/jcount/,http://www.vector.co …
No.1
- 回答日時:
全角と半角文字を区別してカウントするプログラムを作成してみました。
半角文字数には、スペースや改行などもカウントされます。
(カウントしない場合は、コードのチェック範囲を変えて下さい)
あと、パワーポイントでは、イミディエイトウィンドウで
? LENB("A")
としたら"2"になりますから、全てのテキストが2バイト文字に
なっているようです。そういう意味で言えば、全角も半角も無いわけですが
------------------------------------------------
Public Sub 種類別文字数カウント()
Dim cw, cb, i, j, code, p As Slide, s As Shape
cw = 0: cb = 0
For Each p In ActivePresentation.Slides
For i = 1 To p.Shapes.Count
Set s = p.Shapes.Item(i)
If s.HasTextFrame Then
For j = 1 To Len(s.TextFrame.TextRange.Text)
code = AscW(Mid(s.TextFrame.TextRange.Text, j, i))
If (0 <= code And code <= 255) Then
cb = cb + 1
Else
cw = cw + 1
End If
Next
End If
Next
Next
MsgBox "全角文字数:" & cw
MsgBox "半角文字数:" & cb
End Sub
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- その他(コンピューター・テクノロジー) googleスプレッドシートでカッコ内の文字数をカウントしたい 1 2023/01/17 15:52
- Excel(エクセル) Excel countif関数で取り消し線のセルをカウントしないようにしたい countif関数で文 2 2023/08/21 10:27
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) countif関数について質問 4 2022/06/14 12:11
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスで1025文字...
-
半角記号、全角記号を含む正規...
-
Excel関数「COUNTIF」で”文字”...
-
エクセルのCOUNTIFが正しくカウ...
-
文字の入力で横バー上段、中断...
-
パソコンで全角、半角文字の切...
-
記号は半角と全角どちらがよい...
-
全角英数文字が嫌われる理由を...
-
XMLのタグ名の禁則文字
-
VBScriptである文字列に半角文...
-
なぜインターネットでは半角カ...
-
CapCutってどうやったら文字を...
-
Replace関数は文字数の制限ある...
-
VBAで英数字入力チェックしたい。
-
全角半角変換 C++/CLI
-
特定の文字を簡単な操作で半角...
-
半角文字と全角文字の判別の仕方
-
Excel2002 一桁数字だけ全角に置換
-
エスケープ文字にstr_replaceが...
-
全角半角あわせて3文字
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel関数「COUNTIF」で”文字”...
-
文字の入力で横バー上段、中断...
-
メッセージボックスで1025文字...
-
エクセルのCOUNTIFが正しくカウ...
-
半角記号、全角記号を含む正規...
-
全角括弧と全角読点の間隔を狭...
-
VBAで英数字入力チェックしたい。
-
全角英数文字が嫌われる理由を...
-
記号は半角と全角どちらがよい...
-
XMLのタグ名の禁則文字
-
Replace関数は文字数の制限ある...
-
文字列中の両丸括弧を取り除くV...
-
携帯電話の相手の電話番号にメ...
-
エクセルでの漢字、カタカナ、...
-
2つ以上の連続する空白文字を除去
-
Excel2002 一桁数字だけ全角に置換
-
VBScriptである文字列に半角文...
-
IT企業の技術屋にとって全角英...
-
特定の文字を簡単な操作で半角...
-
半角文字と全角文字の判別の仕方
おすすめ情報