如何设置Word表格的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

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

赞 (0)

相关推荐

  • 设置Word表格的VBA代码

    VBA代码设置Word表格属性。 Dim i As Table， N As Integer On Error Resume Next ’忽略错误 Application.ScreenUpdating ...

  • 如何设置Word表格的边框线为无.删除Word表格的线条

    要想设置Word表格的边框线条不显示出来，最好的办法就是设置线条为无，即不启用边框线。这是最好的办法，方法如下： 选中表格，如下图，然后点击鼠标右键，弹出如下图的菜单。 如上图，选择“表格属性”，弹出 ...

  • 设置Word表格的边框线为无.删除Word表格的线条

    要想设置Word表格的边框线条不显示出来，最好的办法就是设置线条为无，即不启用边框线。这是最好的办法，方法如下： 选中表格，如下图，然后点击鼠标右键，弹出如下图的菜单。 如上图，选择“表格属性”，弹出 ...

  • 如何设置Word表格中每页的表头重复显示 ？

    如何设置Word表格中每页的表头重复显示 ？

    在Word中制作表格的时候,长长会遇到这种情况,Word表格的内容或长度多于一页后,对于我们预览的时候体验就不是很好了.所以此时,我们可以设置标题行重复,使其反复出现在每一页表格的首行或数行,这样更便 ...

  • 怎么设置Word表格每页都有表头，这个技巧必会

    在Word文档中的表格,如果是跨页的长表格,那么在查看数据的时候缺少表头,不能便于阅读查看,如何设置让Word表格每页都有表头,增加可读性呢?跟着小Q一起来学习Word技巧,让Word表格每页都有表头 ...

  • 设置Word表格的边框线为无、删除Word表格的线条

    在制作word表格时,有时需要对表格进行处理,删除表格的线条,然而有些人却不知道如何删除线条,这里小编给大家分享如何删除表格中的线条. 操作方法 01 双击打开word软件,在打开页面单击新建空白页面 ...

  • 怎么设置Word表格自动分页问题,让其在一个页面上显示?

    我们经常在制作表格的时候都会遇到这样一种情况,刚刚在当前页面插入了一个表格,但是表格只显示了一部分,而另外一部分则显示在下一页里面,我们怎么样才能将另外一部分表格也设置到第一页中去呢?相信平常使用Wo ...

  • 如何设置Word表格的边框线样式和颜色

    如何设置Word表格的边框线样式和颜色

    在Word中完成表格制作工作后,我们可以将表格中的边框线的线形设置成各种样式,不仅不如此,我们还可以将边框线的颜色自由设置.这样的表格就比平常我们看到的表格要多样化一些.下面就看看是如何操作的吧! 首 ...

  • 如何设置word表格边框双横线

    如何设置word表格边框双横线

    为了word中表格的美观,我们会对其进行一些修饰,那么如何设置表格边框双横线呢? 首先,打开一个word文档,插入所需要的表格. 选中表格,右键选择边框与底纹,在边框中选择双横线即可.