Microsoft Word —— 使用宏脚本将所有表格添加边框

前言

写文档写废掉了

内容

宏脚本内容

Sub 宏1()
'
' 宏1 宏
'
'
For Each aTable In ActiveDocument.Tables
'    aTable.Borders.OutsideLineStyle = wdLineStyleSingle
'    aTable.Borders.OutsideLineWidth = wdLineWidth025pt
'
''    aTable.Borders.InsideLineStyle = wdLineStyleSingle
''    aTable.Borders.InsideLineStyle = wdLineWidth025pt
    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 = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
Next aTable


End Sub

运行脚本

视图->宏->查看宏->编辑->粘贴脚本->运行