WordVBA コンテンツコントロールを知った - インストールレスプログラミング( ´ー`)

program.station.ez-net.jp
このような記事を見つけました。コンテンツコントロールというすごいものがWordにある。
これはイイ。

Wordはけっこう使ってるつもりだったんですが，今回マクロでいじろうと思うまで，コンテンツコントロールというものの存在を知りませんでした。

開発のリボンにたしかに知らないものがある。
f:id:chemiphys:20170211024524p:plain

挿入して，そのプロパティを見ることができます。いろいろあるけど，タイトルとタグの二つを設定できるようです。
これは期待できます。

f:id:chemiphys:20170211024731p:plain

使ってみたら，これはすごい。考えた人すごい。久々にWordに感動した。キミモスゴイヤツダ。

３つのコンテンツコントロールを入れ，タイトルは CC1 CC2 CC3 タグにはすべて CCといれました。

このようなコードを書いてみる。

Sub Test()
Dim Doc As Document
Set Doc = ActiveDocument

Dim cc As ContentControl
For Each cc In Doc.ContentControls
    If cc.Tag = "CC" Then cc.Range.Text = ""
Next

Stop

For Each cc In Doc.ContentControls
    If cc.Title = "CC1" Then cc.Range.Text = "これはCC1です"
    If cc.Title = "CC2" Then cc.Range.Text = "これはCC2ですね"
Next
End Sub