word 解放双手，使用宏批量添加word中表格边框以及自适应

最新推荐文章于 2024-04-18 14:11:07 发布

千亦Zz

最新推荐文章于 2024-04-18 14:11:07 发布

阅读量1.4k

点赞数

分类专栏： word 宏文章标签： wordnet

本文链接：https://blog.csdn.net/q939059425/article/details/120739781

版权

本文介绍如何通过Word宏来实现批量为文档中的表格添加边框，并自动调整边框以适应表格内容，从而极大地提高工作效率。

摘要由CSDN通过智能技术生成

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