Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 7 Professional : Word 2013)
表の列幅設定について
投稿日時: 17/12/20 15:45:45
投稿者: ストロベリー

ページサイズがA4横で、マージンがNarrowで、複数行5列の表の列幅を指定サイズに設定します。
ある表の時だけ、1列目の幅設定をする時に、実行時エラー'4608'、値が有効範囲を超えていますというエラーが発生します。
 
・表のLeftPadding、RightPaddingがそれぞれ5ポイントに設定されていて、設定しようとしている列幅のサイズには問題がないと思っています。
・下の図のように、空白文字なし、改行なし、自然な折り返しありの行で問題があるようで、その行を削除すると、実行時エラーが発生しなくなります。
・問題と思われる行のテキストの途中に空白文字を入れると、実行時エラーが発生しなくなります。
・表の文字サイズが10.5に設定されていて、これを10に設定すると、実行時エラーが発生しなくなります。
・問題と思われる行は折り返しで3行となっているが、セルのFitText=Trueに設定すると、実行時エラーが発生しなくなります。
・実行時エラーが発生した後、そのままF5を押すと、最後まで実行できて、列幅も設定できてしまいます。
 
エラーの原因がわからなくて、何かアドバイスを頂けたらと思います。
よろしくお願いします、
 
 

  wdTbl.AutoFitBehavior (wdAutoFitWindow)
  wdTbl.AllowAutoFit = False
  wdTbl.Columns.Item(1).Width = MillimetersToPoints(17)  ←ここでエラー発生
  wdTbl.Columns.Item(2).Width = MillimetersToPoints(85)
  wdTbl.Columns.Item(3).Width = MillimetersToPoints(85)
  wdTbl.Columns.Item(4).Width = MillimetersToPoints(35)
  wdTbl.Columns.Item(5).Width = MillimetersToPoints(50)

・問題の表
---------------------------------
1列 2列 3列 4列 5列
---------------------------------
1     aaaa  bbbb
      aaaa  bbbb       ←テキストには空白文字なし、改行なし、折り返しあり
      a     bb
---------------------------------
2
---------------------------------
3
---------------------------------

トピックに返信