巧用VBA自動處理Word表格
來源:http://www.52wg.org
Microsoft Word 是大家熟悉的文字處理軟件,強大的功能爲我們的工作提供了很大的幫助。而Visual Basic for Applications(VBA)的應用更爲Word 增添了不少特色,合理而恰當地使用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, App
lyFont:=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, Ap
plyFont:=True, ApplyColor:=True
@@0869601.JPG;圖2@@
(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表格的例子。客戶可將編制的代碼作爲Word宏指定到工具欄或快捷方式,方便以後的使用。