巧用VBA自动处理Word表格

转载 2006年06月08日 10:45:00
巧用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宏指定到工具栏或快捷方式,方便以后的使用。 

 

关于VBA编辑word自动生成报告

关于VBA编辑word自动生成报告 这适合于图比较多,表比较多,并且报告格式单一,但每天需要大量出word报告的情况 -工具使用 -难点 -功能块 参考文件 工具 如图片所示...

【转】Delphi EXCEL Range用法集

Delphi EXCEL Range用法集

批量设置word文档的页面格式 word vba代码注释

Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant,...

Excel vba从excel中导出表格数据和图表到新word文档

office应用程序是可以相互访问的,比如可以把excel的数据导出到word中 step1: 首先要引用word工程对象,在excelvba中依次点击 工具——》引用——》microso...

word的宏_vba统一设置表格宽度

近来需要编辑一个文档,其中有一个问题,就是把表格都设置为100宽,因为表格很多,处理很麻烦,于是就打算学下vba,把表格处理好. 把内容存下来用于后续参考。宏的简单操作宏一个实用操作就是 录用-> ...

基于VBA自动成批批改word格式作业

利用word VBA编程,选择文件夹中的批量word版本的作业,自动在作业开头加上作业批改信息,方便教师批改大批量作业。...

处理Selection对象和Range对象——Word VBA中重要的两个对象

Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定(或突出显示)的区域,如果文档中没有选定任何内容,则代表插入点。每个文档窗格只能有一个 Selection 对象,并且在整...

处理Selection对象和Range对象——Word VBA中重要的两个对象

处理Selection对象和Range对象——Word VBA中重要的两个对象Word 开发人员参考Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定(或突出显示)的区域,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:巧用VBA自动处理Word表格
举报原因:
原因补充:

(最多只允许输入30个字)