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

千亦Zz

于 2021-10-13 11:05:26 发布

阅读量1.6k

点赞数

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

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

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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