wordマクロについて。

質問

Ctrlキーを押しながら複数の番号の上に色を塗る（蛍光ペンで塗る）プログラムを作っていただきたいのです。例えば、アンケート形式で、1、3、5、4に色をつけたい時、 1、3、5、4に色をつけるみたいな感じです。それで、ショートカットキーは、Ctrl +wにして欲しいです。で、、一つずつの番号に色をつけるマクロは出来たものの、いっぺんに数字に蛍光ペンで塗るマクロができないのです。教えていただけると幸いです。その場合は、どうやってショートカットキーをつけるのかも教えていただけると幸いです。すみませんが、皆様のお力を貸していただけないでしょうか？

回答No.3

imogasi · ベストアンサー

#2です。
質問者の補足はあっったのですが、ても、やろうとしていることの説明がなく、回答は的外れになりそうだ。だから回答はやってられない。
補足要求しても、丁寧に、やりたいことを文章で1歩1歩説明しない、質問者がほとんどで、回答者が
回答に苦労するだけ、が多い。
ーー
ショートカットキー（VBA関連だが）の設定については、WEBでほかに数記事見つかった。
その応用の一例を上げておくから、参考にして、勉強して使えばよい。
手作業でも登録できるのだが。
ワードの当文書の標準モジュールに
test01で、やろうとしていることは、小生の思い付きで、質問者の本件意図を、このように
捉えたということではないので断っておく。
ーーー
Sub test02()
MsgBox "表を作成します"
Call test01
End Sub
Sub test01()
ar1 = Array("", "沖縄旅行", "登山", "ドライブ", "山小屋", "ディズニーランド")
Set myrange = Selection.Range
ActiveDocument.Tables.Add Range:=myrange, NumRows:=5, _
NumColumns:=3
For i = 1 To 5
ActiveDocument.Tables(1).Cell(i, 1).Range = i
ActiveDocument.Tables(1).Cell(i, 1).SetWidth ColumnWidth:=InchesToPoints(0.5), RulerStyle:=wdAdjustNone
ActiveDocument.Tables(1).Cell(i, 2).Range = ar1(i)
Next i
End Sub
ーーー
ショートカットキーの定義部分。
Sub test04()
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _
wdKeyShift, wdKeyU), KeyCategory:=wdKeyCategoryMacro, _
Command:="test02"
End Sub
ーー
test04() の方は事前に一度実行しておく。
ワードの文書を開き、CTRL+SHIFT+Uキーを同時押しすると、
test01で組んだ、表が現れるだろう。
これらを使いこなすには、上記のこと以外に、沢山の背景知識・注意点の知識が要るように思う。
小生も詳しくない。ＶＢＡ初心者がやることでではないと思う。

補足

ctrlキーを押して複数の数字に蛍光ペンで色を付けて、ホームタブの蛍光ペンの所をクリックする所をショートカットキーで、やりたいのです。つまりCtrlキーで数字を選択した後、ショートカットキーで、いっぺんに数字に蛍光ペンで、色を付けたのです。（赤色です。)再度教えていただけると幸いです。すみません。

回答No.2

imogasi

>プログラムを作っていただきたいのです
この質問コーナーが、プログラムの下請けの場所になっては、おかしい。
簡単なことではない、回答出来そうな人は、少ないと予想するので、「よく言うは」と思った。
自分で勉強するしかない。ただワードVBAは過去２５年来、４－５冊しか本が出ておらず、
現在は、１－２、本しか売られていないと思う。WEBで照会する、英語の本を購入するしかないが、ぴったりの課題の関連記事を見つけるのは、非常に時間が掛かったり、見つからないこともしばしば。
勉強するスクールも、都内なら２－３あるかもしれないが、他府県ではあるかな。学費は１日５万円以上するだろうな。
仕事や学業のある身なら、諦めた方がよいと思う。
ワードの手作業でできることに止めておくことだ。
あるいはアンケートなど目的を絞ったフリーソフトを探して使うことだ。
ーー
目的は何だろうか？色を付けるのはどういう目的か？区別したいだけか。
この点も書いてないので、全般に影響するので、不明だと、答えにくい。
小数の模擬実例でも挙げて、質問するもんだ。
ワードには、構成単位があって（エクセルでは、まずシートのセル）、質問者はこの理解もできてない、レベルではないか。ワードの用語を使って質問で来てないから、そう思う。
セルの場合は、SelectionChangeなどのイベント（何々したとき、何々のプログラムを実行する仕組み。VBAが必須）があるが、ワード（VBA)の場合は、有無・やり方がよくわからん。
ーーー
小生は、このアンケートの構成を、ワードの「表」（Tableオブジェクト）で、作ってはどうかと、提案する。問題の箇所の位置決めが、やりやすいからだ。
・ワードで（例えば）５行２列の表を作る。枠線罫線は消去しておくのも手である。
・１列目には、連続番号、２列目には選択肢（中身を解説する、多分文章文字列）を作っておく。
上記はVBAでもできるが、複雑にしないため、手作業で行う。
・表の中の１－５行目のどれか、選択行の１列目を選択しておいて，下記VBA（略）を実行する。
・その実行のキッカケは、操作者のショートカットキーで行われるようVBAで設定する。
　これも、手作業操作でも設定できる。
＃１では、照会すれば簡単と、一般論でおっしゃるが，小生は、VBAで「ショートカットキー」の記事を見つけるのに、半日かかった。それも米国の記事。
ーー
でも、質問者以外がアンケート記入・回答作成行うときは、その仕組みの解説が必要で、理解してもらわないといけない。ショートカットキーを押すことなど。こんなことは日常普通か？
　しかし、そんなことをアンケート回答者に期待できるか？
ーー
上記VBAコードは作ってみたが、ここへ挙げても、上記私の提案が、ニーズに合うかどう、判らないので、無駄になりそうなので、希望なら挙げてみることにする。
「wordマクロ」の難しさを知ったうえで考えて。

補足

挙げてください。お願いします。最後に数字の上に蛍光ペンで、赤色をつけるときに、態々クリックしてつけているのをショートカットキーでつけられるようにしたいのです。教えていただけると幸いです。すみません。

回答No.1

f272

一つずつの番号に色をつけるマクロは出来るのなら，それを連続して実行するマクロにすればよい。

どうやってショートカットキーをつけるのかは，
word マクロ ショートカット
で検索すればすぐに見つかる。

補足

一つずつの番号に色をつけるマクロは出来るのなら，それを連続して実行するマクロにすればよい。
その方法を教えていただけると幸いです。すみません。ソースコードを教えていただけると幸いです。すみません。