VBA用循环设置表格集合对表格边框的设置

Question

如题所述

Answer 1

　　如下的VBA代码功能，是用循环来操作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
　　End Sub