Word中的宏代码(14)：插入30天后的日期

软件世界

陈秀峰 · 2004年4月12日

　　目的要求：单位图书室用Word制作了一个借书登记表，规定借出图书在30天之内必须归还，每次在“到期日”栏下面的单元格中输入到期日时，都要计算半天，既麻烦，又不准确，用下面的宏吧。

　　宏代码：

　　Sub afterdate()

　　newdate = Format(Date + 30,"YYYY年MM月DD日")

　　Selection.InsertAfter newdate

　　End Sub

　　说明：①代码中“newdate”变量，你可以修改为其他字符；代码中的“YYYY年MM月DD日”字母，不需要考虑大小写问题。②将光标定在相应的位置(包括表格中的单元格)，运行该宏即可将30天后的日期插入到光标处。③系统日期要调整准确。