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

  以上的代码功能为:表格集合中的循环与对单元格边框的设置。

1.《wordvba 怎么设置Word表格的VBA代码》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《wordvba 怎么设置Word表格的VBA代码》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/406115.html