1.创建表格,插入文字
本例的功能是在文档开头插入一张3行4列的表格。可用ForEach...Next结构来循环遍历表格中的每个单元格。在ForEach...Next结构中,InsertAfter方法用来向表格单元格添加文字("第1单元格"、"第2单元格"等等),oTable.AutoFormat属性用于指定表格套用格式。运行结果如图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.在表格的列、行插入序号
1.如果需要在表格的第一列插入序号,只需将ForEach...Next结构中的内容改为下述程序行即可,其中InsertAfter方法用来向表格单元格添加序号("第1行"、"第2行"等等)。
IfiCountMod4=1Then
oCell.Range.InsertAfter"第"&(iCount-1)/4 1&"行"
EndIf
iCount=iCount 1
2.如果需要从表格的第二行开始插入序号,应将上述代码改为:
IfiCountMod4=1AndiCount>4Then
oCell.Range.InsertAfter"第"&(iCount-1)/4&"行"
EndIf
iCount=iCount 1
3.在表格的列插入日期
(1)如需在表格的第一列插入日期,可用ForEach...Next结构来循环遍历表格中的每个单元格,当判断某一单元格为第一列时,插入日期。Formart(Date,...)用于指定日期的格式,下面例子中的日期从Date 1(即当前日期第二天)开始,用户可以根据需要自定义。
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结构中插入以下几行:
IfiCountMod4=2AndiCount>4Then
oCell.Range.InsertAftercWeekName(WeekDay(Date (iCount-1)/4))
EndIf
其中,WeekDay(Date)返回一数值(1～7),分别表示"星期日"～"星期六",CWeekName数组需要事先定义为:
DimcWeekName(7)
cWeekName(1)="星期日"
cWeekName(2)="星期一"
......
cWeekName(7)="星期六"
4.根据单元格的内容设置不同的格式
以上例中表格为例,如果需要将所有"星期六"和"星期日"所在行格式改为蓝色背景,只要在上例程序之后追加以下几行即可(表格格式改为wdTableFormatColorful2,行数改为12行)。程序中再次使用ForEach...Next结构遍历表格中的每一行(Rows),如果检测到某一行满足条件("星期六"或"星期日"),则选择一行(Selection.SelectRow),将其属性改为需要的格式(本例中为蓝色背景)。
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@@
以上几例简要介绍了使用VBA自动处理Word表格的例子(有关VisualBasic事件、方法、对象、属性的详细使用方法请参阅MicrosoftWordVisualBasic帮助)。客户可将编制的VisualBasic代码作为Word宏指定到工具栏或快捷方式,方便以后的使用。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
