Wordマクロ（VBA)で、表を書いたり、文字を入れたり・・・

Wordマクロで、表を操作できると、ExcelやAccessからWordにデータを読み込んで、申請書とか作れるので、いいと思いません？
ってことで、Wordの表に関するマクロ操作を調べてみました。

---

■載っているサイトなど

ワードVBA
http://www.aa.alpha-net.ne.jp/pcfriend/word/WordHeader.htm

とか、

Word VBA の入門用リンク集　（ワードマクロの，サンプルコードやリファレンス）
http://d.hatena.ne.jp/language_and_engineering/20100314/p1


に少し載ってる。

だけど、あんまり書いてない。むしろ、Wordを開いて

マクロ→新しいマクロの記録

で、自分が知りたい操作を行い、その結果を見たほうが早い。
以下の情報は、そうやって集めました（なので、もっといいやり方があるかも）

---

■表を作成して、セルに文字を入れる。

こんなかんじのマクロを書きます。

Sub Macro1()

'表枠の作成
Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 5, wdWord9TableBehavior)

'文字の設定
myTable.Cell(2, 1).Select
Selection.TypeText Text:="２行目の、はじめ"

End Sub

２行５列のテーブルを作る。wdWord9TableBehaviorっていれないと、線が黒くならない。
cellを選択して、TypeTextで値をセットしている。

---

■表を選択する

　でも、実際は書かれてる表を選択したい場合が多い。
　そんなときは、こうする

Sub Macro2()

'表枠の選択
Set myTable = ActiveDocument.Tables(1)

'セルの書式設定
myTable.Cell(2, 1).Select
Selection.Shading.BackgroundPatternColor = wdColorRose

End Sub

ActiveDocument.Tables(1)のような、引数でテーブルを選択できる。
なお、wdColorRoseは、ばら色（ピンク）。この色のセルになる。