Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60572 / 76732 ←次へ | 前へ→

【20798】初心者です。教えて下さい。。
質問  でぃっく  - 04/12/20(月) 11:46 -

引用なし
パスワード
   初めて投稿いたします。どうか教えて下さい。
エクセルファイルをワードに出力するマクロを作成したところ、
ほぼ正常に出力できるのですが、Wordシートの1枚目と2枚目にまたがって
表がきた場合、1枚目の一番下にくる罫線と、2枚目の一番上にくる罫線が
所々欠けてしまいます。(エクセル上では普通に表示・印刷される表です。)

これを強引に解消しようと、Wordに出力するマクロの中に以下のように
記述したところ、外枠に関しては実行されたのですが、内側水平線でエラーが
出てしまいました。

****↓↓****
   With Selection.Borders(xlEdgeLeft)      '外枠左罫線
     .LineStyle = xlContinuous
     .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeTop)      '外枠上罫線
     .LineStyle = xlContinuous
     .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeBottom)     '外枠下罫線
     .LineStyle = xlContinuous
     .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeRight)     '外枠右罫線
     .LineStyle = xlContinuous
     .Weight = xlThin
   End With
   With Selection.Borders(xlInsideHorizontal)  '内側水平線
     .LineStyle = xlContinuous
     .Weight = xlThin
   End With
****↑↑****

おそらく表の一部が結合されている為かと思うのですが、
エクセル上の書式を変更するわけにもいかないので、困っています。
何かよい方法があれば、どなたかご教授頂けませんでしょうか・・。
宜しくお願いいたします。

0 hits

【20798】初心者です。教えて下さい。。 でぃっく 04/12/20(月) 11:46 質問
【20799】Re:初心者です。教えて下さい。。 IROC 04/12/20(月) 13:02 回答
【20800】Re:初心者です。教えて下さい。。 でぃっく 04/12/20(月) 13:32 お礼

60572 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free