|
今天需要制作如图所示的这样一份表格，需要在表格的第一列填入一系列的日期，从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 |
