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は、ばら色（ピンク）。この色のセルになる。

グルーポンのCEOが、一連の騒動をYouTubeで謝罪しているそうな

ここ
アメリカ人も謝る時には謝る　グルーポンCEOが「大失敗」を謝罪
http://news.goo.ne.jp/article/newsengw/world/newsengw-20110118-01.html
の記事をみると、グルーポンのCEOが、一連の騒動をYouTubeで謝罪しているそうな

CEOが謝罪しているYouTubeのサイトは、以下のサイトなんだけど、音を出せない環境にあるので、
とりあえず、メモメモ

グルーポン・ジャパン公式チャンネル
http://www.youtube.com/user/gruponpon2010

「コナミ、ハドソンを完全子会社化！」－”ラブプラスに高橋名人参戦か”ってこと？

ここの痛いニュース
コナミ、ハドソンを完全子会社化！…ハドソン上場廃止へ
http://blog.livedoor.jp/dqnplus/archives/1589372.html

それって、コメントにあるように
（以下斜体は上記サイトより引用）


ラブプラスに高橋名人参戦か


ってこと？

ちなみに、コメントに

どんな会社だよハドソン

ってあるけど、北海道でアマチュア無線機売ってた会社だよねえ・・・当然（＾＾）ｖ

（だからって、会社ロゴをはちにしたんなら、オヤジギャグだな・・・
　ま、HTML5のロゴよりいいけどな・・・）

1月20日(木)のつぶやき

14:24 from web
NII(のGRACEセンター）が、クラウドの職員＆研究者を募集してる！ http://www.nii.ac.jp/recruit/110118tokunin/
by xmldtp on Twitter

HTML5のロゴ、ださすぎない？

これなんだけど・・・




ここでも行って、さらに笑って、おくんなまし。

http://www.w3.org/html/logo/