ワードの表に対するマクロ

ワード2002を使っています。
エクセルや他のワードから表をコピペしてきて、
貼られた表に同じスタイルをかけるのでマクロ化しようと思います。
記録マクロで記録しただけだと「表」であることを認識しないのか、
うまく動きません。

カーソルのある表を前選択し、プロパティ表示
↓
表タブのオプションで規定のセルの余白を設定
（上下0mm、左右0.5mm）
↓
表タブで表の幅、インデントの設定
（幅115mm、インデント40.5）
↓
行タブで高さの設定のチェックが入っている場合ははずす
↓
プロパティから抜けて、表中のフォントを設定
（日本語＝MS明朝、英数字＝TimesNewRoman、サイズ＝8）

以上のような設定をしたいと思っています。
記録マクロでは表示されないコードが必要なのでは。。
と思っていますが、アドバイスお願いします。

No.2 ベストアンサー 回答者： okormazd 回答日時： 2008/03/06 23:30

ANo.1

です。

抜けてたのがあったようです。

Selection.Rows.HeightRule = wdRowHeightAuto
を
end sub
の前に追加してください。

この回答への補足

ありがとうございました。
試してみたら、大成功でした！

付け足しでお分かりでしたら教えてください。

この表中の文字や数字の行間を
「段落前＝0、段落後＝0、行間＝固定値、11pt」
にするには、教えていただいたコードのどこに何を入れればいいのでしょうか？

お手数をおかけします。。

補足日時：2008/03/07 22:37

No.1 回答者： okormazd 回答日時： 2008/03/06 23:23

表を選択して実行するのでよければ、つぎ。

Sub tableformat()

With Selection.Tables(1)

.Rows.LeftIndent = MillimetersToPoints(40.5)
.PreferredWidthType = wdPreferredWidthPoints
.PreferredWidth = MillimetersToPoints(115)
.AllowAutoFit = False
.TopPadding = MillimetersToPoints(0)
.BottomPadding = MillimetersToPoints(0)
.LeftPadding = MillimetersToPoints(0.5)
.RightPadding = MillimetersToPoints(0.5)

End With

Selection.Font.Name = "ＭＳ 明朝"
Selection.Font.Name = "Times New Roman"

Selection.Font.Size = 8

End Sub