设置Word表格的VBA代码

Admin | 2011-4-2 8:25:31 | 被阅次数 | 10214

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　ＶＢＡ代码设置Word表格属性。

　　Dim i As Table， N As Integer
    On Error Resume Next    ’忽略错误
    Application.ScreenUpdating = False    ’关闭屏幕更新
    For Each i In ActiveDocument.Tables    ’在表格中循环
        With i
            .Style = "列表型 4"    ’将所有表格设置为"列表型4"的样式
            With .Borders    ‘边框
                .InsideLineStyle = wdLineStyleSingle    ’设置内部边框线条
            End With
            With .Rows(1).Borders(wdBorderBottom)    ‘第一行的底边框
                .LineStyle = wdLineStyleDouble    ‘双线型
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            If .Rows.Count > 1 Then    ’ 如果表格行数大于1
                If Len(.Cell(2， 1).Range) <= 2 Then    ’如果第二行第一列不为空
                    With .Rows(2).Shading    ’设置底纹
                        .Texture = wdTextureNone    ’无底底纹
                        .ForegroundPatternColor = wdColorAutomatic
                        .BackgroundPatternColor = wdColorGray125
                    End With
                End If
            End If
            For N = 2 To .Columns.Count    ’从第二列到最后一列
                .Columns(N).Select    ’单元格对齐方式为中部居中
                Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
                Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
            Next N
        End With
    Next i
    Application.ScreenUpdating = True