巧用VBA自動(dòng)處理Word表格

2019-11-18 17:37:37

字體：大中小

供稿：網(wǎng)友

MicrosoftWord97是大家熟悉的文字處理軟件,強(qiáng)大的功能為我們的工作提供了很大的幫助。而VisualBasicforapplications(VBA)的應(yīng)用更為Word97增添了不少特色,合理而恰當(dāng)?shù)厥褂肰BA可為用戶提供極大的方便。下面介紹幾則使用VBA編程自動(dòng)處理Word表格的例子。
　　1.創(chuàng)建表格,插入文字
　　本例的功能是在文檔開頭插入一張3行4列的表格?？捎肍orEach...Next結(jié)構(gòu)來循環(huán)遍歷表格中的每個(gè)單元格。在ForEach...Next結(jié)構(gòu)中,InsertAfter方法用來向表格單元格添加文字("第1單元格"、"第2單元格"等等),oTable.AutoFormat屬性用于指定表格套用格式。運(yùn)行結(jié)果如圖1:
@@0869600.JPG;圖1@@
　　SetoDoc=ActiveDocument
　　SetoTable=oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,End:=0),NumRows
:=3,NumColumns:=4)
　　iCount=1
　　ForEachoCellInoTable.Range.Cells
　　oCell.Range.InsertAfter"第"&iCount&"單元格"
　　iCount=iCount 1
　　NextoCell
　　oTable.AutoFormatFormat:=wdTableFormatColorful2,ApplyBorders:=True,App
lyFont:=True,ApplyColor:=True
　　2.在表格的列、行插入序號(hào)
　　1.如果需要在表格的第一列插入序號(hào),只需將ForEach...Next結(jié)構(gòu)中的內(nèi)容改為下述程序行即可,其中InsertAfter方法用來向表格單元格添加序號(hào)("第1行"、"第2行"等等)。
　　IfiCountMod4=1Then
　　　oCell.Range.InsertAfter"第"&(iCount-1)/4 1&"行"
　　EndIf
　　iCount=iCount 1
　　2.如果需要從表格的第二行開始插入序號(hào),應(yīng)將上述代碼改為:
　　IfiCountMod4=1AndiCount>4Then
　　oCell.Range.InsertAfter"第"&(iCount-1)/4&"行"
　　EndIf
　　iCount=iCount 1
　　3.在表格的列插入日期
　　(1)如需在表格的第一列插入日期,可用ForEach...Next結(jié)構(gòu)來循環(huán)遍歷表格中的每個(gè)單元格,當(dāng)判斷某一單元格為第一列時(shí),插入日期。Formart(Date,...)用于指定日期的格式,下面例子中的日期從Date 1(即當(dāng)前日期第二天)開始,用戶可以根據(jù)需要自定義。
　　SetoDoc=ActiveDocument
　　SetoTable=oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,End:=0),NumRows:=
4,NumColumns:=4)
　　iCount=1
　　ForEachoCellInoTable.Range.Cells
　　IfiCountMod4=1AndiCount>4Then
　　　oCell.Range.InsertAfterFormat(Date (iCount-1)/4,"YYYY.MM.DD")
　　EndIf
　　IfiCountMod4=2AndiCount>4Then
　　　oCell.Range.InsertAftercWeekName(WeekDay(Date (iCount-1)/4))
　　EndIf
　　iCount=iCount 1
　　NextoCell
　　oTable.AutoFormatFormat:=wdTableFormatColorful1,ApplyBorders:=True,Ap
plyFont:=True,ApplyColor:=True
@@0869601.JPG;圖2@@
　　(2)如果需要在表格的第二列插入星期值,可在上例的ForEach...Next結(jié)構(gòu)中插入以下幾行:
　　IfiCountMod4=2AndiCount>4Then
　　oCell.Range.InsertAftercWeekName(WeekDay(Date (iCount-1)/4))
　　EndIf
　　其中,WeekDay(Date)返回一數(shù)值(1～7),分別表示"星期日"～"星期六",CWeekName數(shù)組需要事先定義為:
　　DimcWeekName(7)
　　cWeekName(1)="星期日"
　　cWeekName(2)="星期一"
　　......
　　cWeekName(7)="星期六"
　　4.根據(jù)單元格的內(nèi)容設(shè)置不同的格式
　　以上例中表格為例,如果需要將所有"星期六"和"星期日"所在行格式改為藍(lán)色背景,只要在上例程序之后追加以下幾行即可(表格格式改為wdTableFormatColorful2,行數(shù)改為12行)。程序中再次使用ForEach...Next結(jié)構(gòu)遍歷表格中的每一行(Rows),如果檢測(cè)到某一行滿足條件("星期六"或"星期日"),則選擇一行(Selection.SelectRow),將其屬性改為需要的格式(本例中為藍(lán)色背景)。
　　iCount=1
　　ForEachRowsInoTable.Range.Rows
　　If(WeekDay(Date (iCount-1))=7OrWeekDay(Date (iCount-1))=1)
AndiCount>1
　　Then
　　　Selection.SelectRow
　　　WithSelection.Cells
　　With.Shading
　　.Texture=wdTextureNone
　　.ForegroundPatternColorIndex=wdAuto
　　.BackgroundPatternColorIndex=wdBlue
　　EndWith
　　　EndWith
　　EndIf
　　　iCount=iCount 1
　　　Selection.MoveDownUnit:=wdLine,Count:=1
　　　NextRows
@@0869602.JPG;圖3@@
　　以上幾例簡(jiǎn)要介紹了使用VBA自動(dòng)處理Word表格的例子(有關(guān)VisualBasic事件、方法、對(duì)象、屬性的詳細(xì)使用方法請(qǐng)參閱MicrosoftWordVisualBasic幫助)?？蛻艨蓪⒕幹频腣isualBasic代碼作為Word宏指定到工具欄或快捷方式,方便以后的使用。->

上一篇：用VB創(chuàng)建復(fù)雜表格

下一篇：創(chuàng)建ActiveX接口以移植Excel工作表