今天需要制作如图所示的这样一份表格，需要在表格的第一列填入一系列的日期，从7月2日到8月31日（后续的日期做在另一个文件）。在制作这份表格的时候，总结出了3种方法，掌握了一些技巧，效率提高了很多。

　　这份表格制作重点在那一些列日期上面。

　　方法一：

　　如果急着要用，如果一时想不到快速的办法，那么就采用“复制一片，再逐个修改”的方法。其实也慢不到哪里去！

　　方法二：

　　使用填充“编号”的方法，然后修改“编号”的格式。到“８月１日”再重新定义一个编号即可。

 方法三：

编写宏代码——编写代码花了些时间，但是却感觉非常方便，只要改个数字，就能瞬间生成一系列日期！

Sub table_Date()

'

' 请预先插入一个3列2行的表格

' 下面的宏代码的作用：在表格的第一列里填入日期

'

Set objTable = ActiveDocument.Tables(1)

objTable.Cell(1, 1).Range.Text = "日期"

objTable.Cell(1, 2).Range.Text = "值班人员"

objTable.Cell(1, 3).Range.Text = "工程进度情况"

dtmDate = #7/2/2011#

dtmMonth = Month(dtmDate)

dtmDay = Day(dtmDate)

i = 2

Do While True

    objTable.Cell(i, 1).Range.Text = Month(dtmDate) & "月" & Day(dtmDate) & "日"

    dtmDate = dtmDate + 1

    If Month(dtmDate) > 8 Then

        Exit Do

    End If

    i = i + 1

    objTable.Rows.Last.Select

    Selection.InsertRowsBelow 1

Loop

End Sub