巧用VBA自动处理Word表格教案.doc

Microsoft Word 97是大家熟悉的文字处理软件,强大的功能为我们的工作提供了很大的帮助。而Visual Basic for Applications(VBA)的应用更为Word 97增添了不少特色,合理而恰当地使用VBA可为用户提供极大的方便。下面介绍几则使用VBA编程自动处理Word表格的例子。 Office中国社区门户gPH+n(Z n7F　　 1. 创建表格,插入文字 Office中国社区门户Pq?lp%F*en　　 本例的功能是在文档开头插入一张 3 行 4 列的表格。可用For Each...Next 结构来循环遍历表格中的每个单元格。在 For Each...Next 结构中,InsertAfter 方法用来向表格单元格添加文字(第 1 单元格、 第 2 单元格等等),oTable.AutoFormat属性用于指定表格套用格式。运行结果如图1: Office中国社区门户 ~g:TO([)s+@@@0869600.JPG;图1@@ Office中国社区门户a4?9nKfNO　　 Set oDoc = ActiveDocument 2Ztx I] d{0　　 Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows  Np;p*KP `M4i{ t0:=3,NumColumns:=4) .fK
K$@r8z2DjV0　　 iCount = 1 z.VoWp2W4J$L_k:o6T0　　 For Each oCell In oTable.Range.Cells .Xn2@8c0R0　　 oCell.Range.InsertAfter 第 iCount 单元格 ^9C1S4D9hv(pj0　　 iCount = iCount + 1 \h%k*b.v
|g0　　 Next oCell A(TC;_Y X0　　 oTable.AutoFormat Format:=wdTableFormatColorful2,ApplyBorders:=True, App hfxCI K0lyFont:=True, ApplyColor:=True *Lm p(Nn/w3aY0　　 2. 在表格的列、行插入序号 Office中国社区门户)j+le ip/b　　 1. 如果需要在表格的第一列插入序号,只需将 For Each...Next 结构中的内容改为下述程序行即可,其中InsertAfter 方法用来向表格单元格添加序号(第 1 行、 第2 行等等)。 9b[~:ph4z0　　 If iCount Mod 4 = 1 Then 8NV8V@M9VP,m0　　　 oCell.Range.InsertAfter第 (iCount - 1) / 4 + 1 行 WZS jah.p7u#YB0　　 End If Office中国社区门户N N c5x)J0sP s　　 iCount = iCount + 1 Office中国社区门户o;F4e5QRP*A;H　　 2. 如果需要从表格的第二行开始插入序号,应将上述代码改为: MI8aVU-[4`9W
K0　　 If iCount Mod 4 = 1 And iCount 4 Then (on U2f n y g0　　 oCell.Range.InsertAfter 第 (iCount - 1) / 4 行 Office中国社区门户B$]p#Gp　　 End If Office中国社区门户 cTr+k5B uG　　 iCount = iCount + 1 -Y|Ka9ZD0　　 3. 在表格的列插入日期 Office中国社区门户_9i@ A2jn;@IXz　　 (1) 如需在表格的第一列插入日期, 可用For Each...Next结构来循环遍历表格中的每个单元格,当判断某一单元格为第一列时,插入日期。Formart(Date,...)用于指定日期的格式,下面例子中的日期从Date+1(即当前日期第二天)开始,用户可以根据需要自定义。 \*{f^rf0　　 Set oDoc = ActiveDocument Office中国社区门户 Z!A9DVQL F　　 Set oTable =oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,End:=0),NumRows:= Office中国社区门户 l0mdw y4t#c