|
初めて投稿いたします。どうか教えて下さい。
エクセルファイルをワードに出力するマクロを作成したところ、
ほぼ正常に出力できるのですが、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
****↑↑****
おそらく表の一部が結合されている為かと思うのですが、
エクセル上の書式を変更するわけにもいかないので、困っています。
何かよい方法があれば、どなたかご教授頂けませんでしょうか・・。
宜しくお願いいたします。
|
|