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

≪