Sub 宏2()
'
' 宏2 宏
'
'
For Each aTable In ActiveDocument.Tables
With aTable
aTable.Select
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderHorizontal)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLine
word 解放双手,使用宏批量添加word中表格边框以及自适应
最新推荐文章于 2024-08-12 10:44:15 发布
本文介绍如何通过Word宏来实现批量为文档中的表格添加边框,并自动调整边框以适应表格内容,从而极大地提高工作效率。
摘要由CSDN通过智能技术生成