摘要： 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
快速找到并选择word字体的方法
快速找到并选择word字体的方法 方法如下： 实现原理： 为了达到快速选择字体的目的，我们可以将常用字体以按钮形式放置在工具栏上。 设置方法： 1、首先右击Word工具栏，选择“自定义“命令，打开“自定义”对话框; 2、在“自定义”对话框中选择“命令”选项卡，并移动光标条到类别栏中的“字体”项，看到平时经常使用的字体，把它拖到工具栏成为按钮; 3、以后要快速选择字体，只要先选中文本，再按下工具栏上字体按钮即可，省去了从字体下拉列表框中众多字体中选择的麻烦。
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
以上的代码功能为：表格集合中的循环与对单元格边框的设置。
在word中字如何加阴影
在word中字如何加阴影 选中文字单击格式-边框和底纹,打开对话框选择底纹选择无填充颜色应用于段落 补充： 如图 补充： 或者你全选(CTRL A)复制,单击编辑菜单下的选择性粘贴在出现的对话框中选择无格式文本
