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

赞 (0)

相关推荐

  • Excel表格中单元格数字怎么设置动态变化

    Excel表格中单元格数字怎么设置动态变化

    今天给大家介绍一下Excel表格中单元格数字怎么设置动态变化的具体操作步骤.1. 首先打开电脑上的Excel表格,进入主页面后,选择一个单元格,将数字输入之后,设置好格式,如图.2. 按键盘上的Alt ...

  • Word表格对齐和Word文字环绕设置

    Word表格对齐和Word文字环绕设置

    完成Word表格的制作后,还需要设置Word表格对齐和Word文字环绕,以使表格更加实用和美观,具体操作步骤如下所述:第1步,将鼠标指针移动至Word表格的左上角,当出现一个带方框的十字箭头后单击该箭 ...

  • WPS表格2010为表格设置图形背景

    在wps表格中我们只能对单元格设置填充颜色而已，效果显然并不是那么漂亮。如果想发让表格更漂亮，最好的效果当然还是用图形做为表格背景了，可惜WPS表格中并没有提供可直接为单元格设置图片填充效果的功能。其 ...

  • 在EXCEL表格中奇偶页页脚设置不同的页码格式教程

    想必大家对word奇偶页设置不同的页脚已经很熟悉，这里介绍下EXCEL表格中奇偶页页脚如何设置不同的页码格式。例如打印的方便，需要将奇数页页脚靠左显示，偶数页页脚靠右显示。这里以EXCEL2013为例 ...

  • Word文档中表格的单个单元格边框怎么设置

    Word文档中表格的单个单元格边框怎么设置 1.在表格中选择需要设置边框的单元格,在"表格工具-设计"选项卡的"边框"组中单击"边框"按钮上 ...

  • 如何设置Excel语音朗读表格数据

    工作中常常需要仔细校对各种复杂的Excel表格数据,如果全部靠眼睛校对,很容易出差错.如果Excel表格可以把表格数据念出来,不仅减轻了工作量,还不容易出错. 在Excel2003中,我们可以通过&q ...

  • word2010表格边框怎么加粗 word加粗边框的设置方法

    word是我们常用的办公软件,有时为了突出某个表格,需要给表格加粗边框,那么word2010表格边框怎么加粗?下面小编带来word加粗边框的设置方法,希望对大家有所帮助. word加粗边框的设置方法: ...

  • excel表格怎么给不同的区域设置不同的密码?

    excel表格中想要设置密码,但是想给不同的区域设置不同的密码,该怎么设置呢?下面我们就来看看详细的教程. 1.比如,有这么一份报表,数据录入需要由行政部与账务部共同完成.两个部门只能各自负责自己的那 ...

  • WPS表格中如何更改默认的设置方法

    有的时候我们会需要经常使用一些功能这个时候我们就需要更改一下默认的设置.今天小编为大家带来了WPS表格中如何更改默认的设置方法,感兴趣的朋友到下文了解一下吧. 方法/步骤 我们需要打开WPS表格,找到 ...