word 使用宏批量设置表格

最新推荐文章于 2024-12-05 10:03:35 发布

weixin_34138521

最新推荐文章于 2024-12-05 10:03:35 发布

阅读量2.6k

点赞数 1

本文介绍了一个使用VBA脚本批量修改Word文档中所有表格样式的示例代码。该脚本可以为表格设置内外边框样式及颜色，并调整表格及其内容的对齐方式。

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

Sub ChangeTable()

Application.Browser.Target = wdBrowseTable

    For i = 1 To ActiveDocument.Tables.Count

        ActiveDocument.Tables.Item(i).Select

        With Selection
    
            '表格外边框
            .Borders.OutsideLineStyle = wdLineStyleSingle
            '表格内边框
            .Borders.InsideLineStyle = wdLineStyleSingle
            '表格内边框
            .Borders(wdBorderRight).Color = wdColorAutomatic
            .Borders(wdBorderLeft).Color = wdColorAutomatic
            .Borders(wdBorderTop).Color = wdColorAutomatic
            .Borders(wdBorderBottom).Color = wdColorAutomatic
            '表格居中
            .Rows.Alignment = wdAlignRowLeft
            '表格内容居中
            .Range.Paragraphs.Alignment = wdAlignParagraphLeft
            
        End With
    
    Next i

End Sub