WordにてVBAを利用して、コンボボックスの自動化

Question

#実現したいこと
wordの文章に３つのコンボボックスを設置し、真ん中のコンボボックスの値(選択項目)を変更したら、両隣りのコンボボックスの値を自動変更するにはどのようにすればよろしいでしょうか？

コンボボックスというのは、開発タブ内のコンボボックスコンテンツコントロールのことです。

Comments

[hatena19]

コンボボックスは[開発]タブの[コントロール]グループにある[コンボボックス コンテンツ コントロール]なのか、ActiveXコントロール のコンボボックスなのかどちらでしょうか。

[Yoshikun_0945]

返答が遅くなり申し訳ありませんでした。

[hatena19]

私はWord VBAには詳しくないので、[コンボボックス コンテンツ コントロール]については回答できません。他の方の回答をお待ちください。ActiveXコントロールならExcelなどと共通ですので回答できますが。

[ExcelVBAer]

なぜ、Excel ではなく Word なのですか？？

[Yoshikun_0945]

wordで作成する文章の宛名を自動選択させる予定です

Answer 1

コンボボックスをダブルクリックすると ComboBox1_Change というサブルーチンが作られますからそこで設定してください。

以下は Excel での例ですが Word でも参考になると思います。
1つ目のコンボボックスの値に応じて2つ目のコンボボックスのリストを変更する

###追記

以上は私がコンテンツコントロールというものを知らなかったことによる誤解によるものです。
コンテンツコントロールのコンボボックスには Change イベントは無いようです。
それを無理やり実装するために監視してイベントを発生させる VBA を作った人がいらっしゃいました。
Content Control Custom Events

Comments

[ExcelVBAer]

コンボボックスコンテンツコントロールは、通常のコンボボックスとは異なるもののようです。
自分も初めて知りましたが。。。

[Zuishin]

ありがとうございます。
確認して、コンテンツコントロール自体今初めて見ました。
では全く違うアプローチが必要ということですね。
ざっと検索したところ、標準で選択イベントは無いということがわかりました。

[ExcelVBAer]

そうなんです。
オブジェクトに紐付くイベントがなく、
Documentの「ContentControlOnEnter」「ContentControlOnExit」等で
イベントが取得できるようです。

[Zuishin]

なるほど。理解しました。
手で変更することがわかっているのでそれで良さそうですね。

Answer 2

コンテンツコントロールは初めてですが、
ThisDocument の中で、Document のイベントの
「ContentControlOnEnter」「ContentControlOnExit」で
コンボボックスを選択した時、選択から外れた時、
のイベントが取得できます。

入った時に、値を取得しておき、
出た時の値と比較すれば、
選択されたかどうか分かるでしょう。

他のコンテンツコントロールは、以下のようにすれば取得できるんじゃないでしょうか。
Dim Con As ContentControl
For Each Con In ThisDocument.ContentControlOnExit
'指定の名前、タグ等で検索してExit For
Next

ご参考まで。