スポンサーリンク

050-VBA

Wordでコンボボックス【combobox】を使ってリッチテキストコンテンツコントロールに文字列を設定する方法!

へっぽこヘタレシステム管理者の管理人です。

WORDのマクロで悪戦苦闘しておりましたが・・・

前回の記事はこちら

今度は、フォームにせっちしたコンボボックスのリストから選択して、本文のコンテンツコントロールに文字列を設定する必要が出てきたので・・・

今回もまた悪戦苦闘しながらやってみました。

まずやりたいことの完成形は、下の図のとおりです。

  • 1.ユーザーフォームにコンボボックスを設置する
  • 2.コンボボックスに静的にリストを設定しておく
  • 3.ボタンを押したらコンボボックスから選択した文字列が本文のコンテンツコントロールに設定される
  • 4.次回フォームを開いた場合には設定された文字列がコンボボックスに表示させる

以上です。

さて、肝心なやり方ですが・・・

とりあえず、テストとして、適当にフォームを1つ作り・・・

そこに・・・

  • コンボボックス
  • コマンドボタン

を設置します。

お約束のワードを開いたときにフォームを開く様に・・・

標準モジュールを1つ作り・・・

Sub AutoOpen() testform1.Show End Sub

これを仕込んでおきます。

今回フォーム名は【testform1】としています。

次にフォームを開いたときの処理です・・・

Private Sub UserForm_Initialize()
    

  'コンテンツコントールに設定された文字列をコンボボックスに設定
    Me.testbox2.Text = ActiveDocument.ContentControls.Item(1).Range.Text
    

  'コンボボックスに静的にリストを設定
    With testbox2
        .AddItem "ああああああああああ"
        .AddItem "いいいいいいいいいい"
        .AddItem "うううううううううう"
    End With

End Sub

今回、コンボボックスのオブジェクト名は【testbox2】に設定しました。

最後にコマンドボタンを押してコンテンツコントロールにコンボボックスのテキストを設定する処理です・・・

Private Sub CommandButton1_Click()

    Dim control As ContentControl
    
    For Each control In ActiveDocument.ContentControls

        Select Case control.Title
            Case "testbox1"
                control.Range.Text = Me.testbox2.Text
        End Select
    Next  

End Sub

コンテンツコントロールのタグ名は【testbox1】にしました。

これで、なんとか思うような処理はできるようになりました。

ブログ開設に必要なドメイン取得、サーバーレンタル、ASPの登録等は、こちらのサイトから!

スポンサーリンク
スポンサーリンク

-050-VBA

執筆者:


comment

メールアドレスが公開されることはありません。

CAPTCHA


関連記事

エクセルマクロの本を買ってみた!【EXCEL自動化の教科書】!35万部も売れているらしいが?

管理人はこれまで、エクセルのマクロを仕事上いくつも作成していますが、すべて独学とGoogle検索だけで済ませていました。 真面目に本を読んで知識をインプットした事がなかったので、1冊本を買ってみようと …

EXCELのVBAを使ってDB【Oracle】に接続してSQLを叩く方法!

へっぽこヘタレシステム管理者の管理人です。 さて・・・ 長年、【Oracle】等のDBに接続してSQLを叩く場合は・・・ EXCELでのやり方が分からず・・・ ず~っとMS-ACCESSを使っていまし …

MS-Access【アクセス】・VBA・レポートのデータソースを動的に変更する方法!

へっぽこヘタレシステム管理者の管理人です。 さて、非課税世帯等に対する臨時特別給付金(非課税世帯の10万円)が年末に決まり・・・ 管理人が勤務するお役所でも1月末~2月初旬までには・・・ 対象世帯に確 …

MVNOのSIMでスマホからテザリングでヤフーカーナビを使う!結構な頻度で通信が不安定でナビが動かなくなる!

へっぽこへたれ貧乏ライダーの管理人です。 以前使っていた、バイク用のポータブルナビが・・・ スペースの関係で【Z H2】には取付できなかったので・・・ 悩んだ挙句に、古いスマホをテザリングで接続してヤ …

WORDのVBA【マクロ】に悪戦苦闘する!その2・ユーザーフォーム編!

へっぽこヘタレシステム管理者の管理人です。 先日に続き・・・ 本日もワードのマクロ(ユーザーフォーム)に悪戦苦闘しております。 ワードのユーザーフォームについての記事はこちら 今回やりたいことですが・ …

スポンサーリンク
スポンサーリンク
スポンサーリンク