• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:ワードの表に対するマクロ)

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

このQ&Aのポイント
  • ワード2002を使っている場合、エクセルや他のワードからコピペした表に同じスタイルをかけるためにマクロ化することができます。
  • ただし、記録マクロだけだと「表」であることを認識せずうまく動作しない場合があります。
  • 設定する内容は、規定のセルの余白や表の幅、インデント、行の高さ、フォントなどです。記録マクロには表示されないコードが必要かもしれません。

質問者が選んだベストアンサー

  • ベストアンサー
  • okormazd
  • ベストアンサー率50% (1224/2412)
回答No.2

ANo.1 です。 抜けてたのがあったようです。 Selection.Rows.HeightRule = wdRowHeightAuto を end sub の前に追加してください。

kawamamach
質問者

補足

ありがとうございました。 試してみたら、大成功でした! 付け足しでお分かりでしたら教えてください。 この表中の文字や数字の行間を 「段落前=0、段落後=0、行間=固定値、11pt」 にするには、教えていただいたコードのどこに何を入れればいいのでしょうか? お手数をおかけします。。

その他の回答 (1)

  • okormazd
  • ベストアンサー率50% (1224/2412)
回答No.1

表を選択して実行するのでよければ、つぎ。 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 = "MS 明朝" Selection.Font.Name = "Times New Roman" Selection.Font.Size = 8 End Sub

関連するQ&A

専門家に質問してみよう