计算机世界1998年第49期
巧用VBA自动处理Word表格
Microsoft Word 97
是大家熟悉的文字处理软件，强大的功能为我们的工作提供了很大的帮助。而Visual
Basic for Applications（VBA）的应用更为Word 97
增添了不少特色，合理而恰当地使用VBA
可为用户提供极大的方便。下面介绍几则使用VBA 编程自动处理Word
表格的例子。
1. 创建表格，插入文字
本例的功能是在文档开头插入一张3 行4 列的表格。可用For
Each...Next 结构来循环遍历表格中的每个单元格。在For Each...Next
结构中，InsertAfter 方法用来向表格单元格添加文字（“第1
单元格”、“第2 单元格”等等），oTable.AutoFormat
属性用于指定表格套用格式。运行结果如图1：
Set oDoc = ActiveDocument
Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0),
NumRows:=3,NumColumns:=4)
iCount = 1
For Each oCell In oTable.Range.Cells
oCell.Range.InsertAfter "第”＆iCount ＆“单元格”
iCount = iCount ＋1
Next oCell
oTable.AutoFormat Format:=wdTableFormatColorful2,ApplyBorders:=True,
ApplyFont:=True, ApplyColor:=True
2. 在表格的列、行插入序号
1 如果需要在表格的第一列插入序号，只需将For Each...Next
结构中的内容改为下述程序行即可，其中InsertAfter
方法用来向表格单元格添加序号（“第1 行”、“第2 行”等等）。
If iCount Mod 4 = 1 Then
oCell.Range.InsertAfter"第”＆(iCount －1) / 4 ＋1 ＆“行”
End If
iCount = iCount ＋1
----2 如果需要从表格的第二行开始插入序号，应将上述代码改为：
If iCount Mod 4 = 1 And iCount > 4 Then
oCell.Range.InsertAfter "第”＆(iCount －1) / 4 ＆“行”
End If
iCount = iCount ＋1
3. 在表格的列插入日期
1 如需在表格的第一列插入日期，可用For Each...Next
结构来循环遍历表格中的每个单元格，当判断某一单元格为第一列时，插入日期。Formart(Date,...)
用于指定日期的格式，下面例子中的日期从Date ＋1（即当前日期第二天）开始，用户可以根据需要自定义。
Set oDoc = ActiveDocument
Set oTable =oDoc.Tables.Add(Range:=oDoc.Range
(Start:=0,End:=0),NumRows:=4,NumColumns:=4)
iCount = 1
For Each oCell In oTable.Range.Cells
If iCount Mod 4 = 1 And iCount > 4 Then
oCell.Range.InsertAfter Format(Date ＋(iCount －1) / 4, "YYYY.MM.DD")
End If
If iCount Mod 4 = 2 And iCount > 4 Then
oCell.Range.InsertAftercWeekName(WeekDay(Date ＋(iCount －1) / 4))
End If
iCount = iCount ＋1
Next oCell
oTable.AutoFormat Format:=wdTableFormatColorful1,ApplyBorders:=True, ApplyFont:=True,
Apply
Color:=True
----2 如果需要在表格的第二列插入星期值，可在上例的For Each...Next
结构中插入以下几行：
If iCount Mod 4 = 2 And iCount > 4 Then
----oCell.Range.InsertAfter cWeekName(WeekDay(Date ＋(iCount －1) / 4))
End If
其中，WeekDay(Date) 返回一数值（1 ～7），分别表示“星期日”～“星期六”，CWeekName
数组需要事先定义为：
----Dim cWeekName(7)
----cWeekName(1) = "星期日”
----cWeekName(2) = "星期一”
----......
----cWeekName(7) ="星期六”
4. 根据单元格的内容设置不同的格式
以上例中表格为例，如果需要将所有“星期六”和“星期日”所在行格式改为蓝色背景，只要在上例程序之后追加以下几行即可（表格格式改为wdTableFormatColorful2，行数改为12
行）。程序中再次使用For Each...Next 结构遍历表格中的每一行（Rows），如果检测到某一行满足条件（“星期六”或“星期日”），则选择一行（Selection.SelectRow），将其属性改为需要的格式（本例中为蓝色背景）。
iCount = 1
For Each Rows In oTable.Range.Rows
If (WeekDay(Date ＋(iCount －1)) = 7 Or WeekDay(Date ＋(iCount －1)) = 1) And iCount
> 1 Then
Selection.SelectRow
With Selection.Cells
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColorIndex = wdAuto
.BackgroundPatternColorIndex = wdBlue
End With
End With
End If
iCount = iCount ＋1
Selection.MoveDown Unit:=wdLine, Count:=1
Next Rows
以上几例简要介绍了使用VBA 自动处理Word 表格的例子（有关Visual
Basic 事件、方法、对象、属性的详细使用方法请参阅Microsoft Word Visual
Basic 帮助）。客户可将编制的Visual Basic 代码作为Word
宏指定到工具栏或快捷方式，方便以后的使用。