エクセルVBAしか扱ったことがないのですが、
ワード文書のテキストボックス(複数)内の文字数の総合計をMsgBox出力させようと思ったのですが、勝手が違って困っています。甘く見た私がバカでした。
しかもVBA自体結構忘れてしまっています。
以前こちらでパワポについてご親切な回答を頂いたので、再びご好意にまた甘えられたらと思うのですが、助けていただけますでしょうか。
ActiveDocument.Shapes("Text Box 2").Select
Text Box の番号を 定義して、for nextで処理するのかなと思うのですが、とりあえず、ここまでの努力をしたということでお許し下さい。
No.1ベストアンサー
- 回答日時:
ActiveDocumentの図形をループして、
それが、テキストボックスなら
文字数をカウントして、
変数に足しこんでいけば良いかと思います。
Option Explicit
Sub test()
Dim objShape As Shape
Dim lngTxt As Long
For Each objShape In ActiveDocument.Shapes
If objShape.Type = msoTextBox Then
lngTxt = lngTxt + objShape.TextFrame.TextRange.Characters.Count
End If
Next
MsgBox lngTxt
End Sub
早速のご回答本当にありがとうございました。助かりました。
ついでに、「単語数」のメソッド(メソッドで良いんでしたっけ??)、お伺いしてもよろしいでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Visual Basic(VBA) エクセルVBAのコードについて 2 2022/08/10 21:49
- Visual Basic(VBA) vbaのループ処理について 6 2022/05/06 15:35
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) Vba テキストボックスの文字列をボタンで入力するとテキストボックスの端の文字列が更新されない 2 2022/05/21 23:32
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- その他(パソコン・スマホ・電化製品) ワードでテキストボックス内の文字を連動させない方法 2 2023/02/09 16:56
- Excel(エクセル) Excelシートのある番地の文字が一致したすべての行を別シートに転記する方法 11 2022/10/25 08:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
VBPをダブルクリックするとたま...
-
VBA コピーが出来ません…!
-
DataGridViewでセルクリックイ...
-
エクセルVBAにおけるON TIMEメ...
-
javascriptからjavaを呼び出したい
-
コマンドプロンプト実行後に画...
-
Range クラスのAutoFitプロパテ...
-
配列のメソッド
-
コンパイルエラーの理由。
-
Labelコントロールに数字を代入...
-
ウィンドウを最前面にできません
-
CALLされていないメソッドを見...
-
【sendkeysメソッドが動かずに...
-
final修飾子を使っているのに、...
-
特定の文字でReplaceメソッドが...
-
C#SundPlayerで同期再生が再生...
-
ExcelVBAのプログラムをJavaへ変換
-
VB.NETでのEXCELファイルの閉じ方
-
初心者です。メソッドの使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
final修飾子を使っているのに、...
-
JSPで<SELECT>の中にDBから持っ...
-
Labelコントロールに数字を代入...
-
エクセルVBAにおけるON TIMEメ...
-
javascriptからjavaを呼び出したい
-
DataGridViewでセルクリックイ...
-
VBPをダブルクリックするとたま...
-
onClickで関数呼出し後に、結果...
-
コマンドプロンプト実行後に画...
-
配列のメソッド
-
日本の教育って時間が無い中で...
-
Refreshメソッドの使い方
-
mainメソッドのthrows節で設定...
-
【sendkeysメソッドが動かずに...
-
C# 演算 最大値 最小値 表現の仕方
-
VBA コピーが出来ません…!
-
Application.Wait の参照設定
-
ウィンドウを最前面にできません
-
for文(拡張)内の変数(ローカ...
おすすめ情報