【WORD VBA】表格加邊框線條加黑網底變白
Sub 表格加邊框線條加黑網底變白()
Dim borderLoop As Border
Dim i, s As Integer
i = ActiveDocument.Tables.Count
For s = 1 To i
If ActiveDocument.Tables.Count >= 1 Then
For Each borderLoop In ActiveDocument.Tables(s).Borders
With borderLoop
.ColorIndex = wdBlack '將框線設定為黑色。
.LineStyle = wdLineStyleNone '消除原有框線設定。
End With
Next borderLoop
End If
Next s
For s = 1 To i
If ActiveDocument.Tables.Count >= 1 Then
Set mytable = ActiveDocument.Tables(s)
mytable.Borders.OutsideLineStyle = wdLineStyleSingle
mytable.Borders.OutsideLineWidth = wdLineWidth150pt '將外部框線設定為1.50pt。
mytable.Borders.InsideLineStyle = wdLineStyleSingle
mytable.Borders.InsideLineWidth = wdLineWidth075pt '將內部框線設定為0.75pt。
mytable.Shading.BackgroundPatternColor = wdColorWhite '將表格網底設定為白色。
End If
Next s
End Sub
-----
親愛的讀者，感謝您耐心閱讀本篇文章。在接近閱讀結束之際，我誠摯邀請您繼續探索更多我之前所撰寫的文章，相信這些內容將為您帶來更多啟發和收穫。在下方，您可以找到一系列豐富多彩的主題，每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字，對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力，每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近，一些交流互動的方式：
❤️點愛表心｜💬留言相伴｜✏️追蹤大叔｜🔗分享此文｜☕贊助咖啡
155會員
193內容數
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念，你可以獲得寶貴的行業內幕，了解投資銀行的實際運作方式和挑戰，並提供了深入的分析和洞察力，涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務，從而在自己的工作中更具競爭力。
留言0
查看全部
你可能也想看
創作者要怎麼好好休息 + 避免工作過量？《黑貓創作報#4》午安，最近累不累？
這篇不是虛假的關心。而是《黑貓創作報》發行以來可能最重要的一篇。
是的，我們這篇講怎麼補充能量，也就是怎麼休息。
2024-06-29
防曬產品係數測試報告彙整(2024年)從2014年起，自己對於市售防曬產品的效能產生了濃厚的興趣。因為當時候發現不少產品的防曬係數其實標示是有問題的，像是原本應該是人體測試的SPF與PA數值，實際上沒有做，只用機器測試的數據來充當，但這兩者卻有很大的差異。像是防曬係數其實有強度、廣度與平均度三個面向需要一起判斷，但多數廠商並沒有完整標示
2023-04-27