Word ドロップダウンリスト と マクロ

質問

Word 97-03 でドロップダウンリストの選択肢に連動したマクロの作り方を教えてください。
選択肢は３つあり、選択肢１の場合は日付を入力するフォームフィールドを表示、
選択肢２ or ３のときは非表示というマクロを作成したいと思っています。

If ドロップダウンリストの value = 1 then
フォームフィールド font color = black
if not フォームフィールド font color = white

上記のようなアイディアはうかんだのですが、マクロにすることができませんでした。
Excel VBA の情報はたくさん見つかるのですが、Word のマクロはあまり情報がなく困っています。

詳しい方、解決法やアドバイスをいただけると助かります。
よろしくお願い致します。

回答No.1

kkkkkm · ベストアンサー

Word97だとActiveXコントロールは使えないですよね・・・
ActiveXコントロールのドロップダウン1_Change()みたいなイベント処理がわからないのですが、一応色を変えるマクロは以下の要領でいけると思います。ただ、2013でのテストですので97だとエラーになるかもしれませんが・・・。
Sub Example()
If ActiveDocument.FormFields("ドロップダウン1").DropDown.Value = 1 Then
ActiveDocument.FormFields("テキスト1").Range.Font.Color = wdColorBlack
Else
ActiveDocument.FormFields("テキスト1").Range.Font.Color = wdColorWhite
End If
End Sub

補足

kkkkkm さん、
さっそくの回答ありがとうございます。
基本的な質問で申し訳ないのですが、ドロップダウンやテキストなどフォームフィールドの名前はどこで確認できますでしょうか？
名前が違うらしくエラーになってしまいました。
お手数をおかけしますが、名前の確認方法を教えていただけませんでしょうか。

回答No.2

kkkkkm

> お手数をおかけしますが、名前の確認方法を教えていただけませんでしょうか。

フィールドの右クリックメニューのプロパティで確認できます。添付画像のブックマーク名です。2013での画面ですので項目名とか違うかもしれません。なお、フォームは2013用ではなく97で使える「以前のバージョンのフォーム(Word97-2003)」を利用しています。

また、実行するマクロが終了時になっていますが、この場合、ドロップダウンから別のフィールドに移動した時にマクロが実行されますので、動作としてはちょっと違うなぁという感じです。

お礼

kkkkkmさん、

わざわざ画像まで付けていただき、ありがとうございます。
おかげさまでマクロも動作し、解決いたしました！
助かりました。ありがとうございました！