Word (VBA)

Word VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Word 2013)
WORDの表で高さを自動で最小値にしたい
投稿日時: 17/06/27 02:45:31
投稿者: ころぽち

差込印刷を自動化しようとしています。
Excel2013からWORD2013の表の中に差込みを行います。
 
差込後、空行を削除し、列幅を揃えるところまではできたのですが、
行の高さが揃いません。
差込で行の中の文字数は一定でないため、Excelでいうところの
「AutoFit」のような機能で、最小値に設定したいのですが、
Autofitだとエラーが出てコンパイルがとおりませんでした。
 
どのようにすれば良いでしょうか。
よろしくお願いいたします。
 

回答
投稿日時: 17/06/27 08:19:47
投稿者: んなっと

引用:
Excelでいうところの「AutoFit」のような機能

だけに着目すると...
  Selection.Tables(1).Rows.HeightRule = wdRowHeightAuto
かもしれません。

投稿日時: 17/06/27 13:27:36
投稿者: ころぽち

んなっと様
 
早々にご回答くださいましてありがとうございます。
 
コードを実行しましたら、思い描いていたとおりの動きでした。
 
大変ありがとうございます。
今後ともよろしくお願いいたします。