Excel VBA質問箱 IV

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

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


10622 / 13646 ツリー ←次へ | 前へ→

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

【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
****↑↑****

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

【20799】Re:初心者です。教えて下さい。。
回答  IROC  - 04/12/20(月) 13:02 -

引用なし
パスワード
   詳しい状況はわかりませんが、On Error Resume Next で
エラーを無視して処理できませんか?

【20800】Re:初心者です。教えて下さい。。
お礼  でぃっく  - 04/12/20(月) 13:32 -

引用なし
パスワード
   IROCさま

早速のご回答ありがとうございます!
お教え下さったOn Error Resume Nextでエラーは無視され、
マクロは実行されましたが、実行後のWordファイルに出力された
表の内側の罫線はやはり消えてしまっています・・。

Wordに出力した後では、結合したセルを含む表において
”Selection.Borders(xlInsideHorizontal)  '内側水平線 ”
は実行できないのでしょうか・・?

わかりにくい表記の仕方で大変恐縮ですが、ご回答頂ければ嬉しく思います。
宜しくお願いいたします。

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