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

如题所述

  如下的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
温馨提示:答案为网友推荐,仅供参考
相似回答
大家正在搜