[求助]能不能通过域获得上个月份的日期

R.R.

我每月要打印上月报表封面，经常忘记修改月份，能不能插入一个域，使每次打开该文档时自动更新月份，如2004年4月份需要打印“二○○四年三月”。

cxffxc

插入30天后的日期

[目的要求]单位图书室用Word作了一个借书登录表，规定借出图书在30天之内必须归还，每次在“到期日”栏下面的单元格中输入到期日期时，都要计算半天，既麻烦，又不准确，用下面的宏吧。 [宏代码] Sub afterdate() newdate = Format(Date + 30, "YYYY年MM月DD日") Selection.InsertAfter newdate End Sub [几点说明]①代码中“newdate”变量，你可以修改为其它字符；代码中的“YYYY年MM月DD日”字母，不需要考虑其大小写问题。②将光标定在相应的位置（包括表格中的单元格），运行该宏即可将30天后的日期插入到光标处。③系统日期要调整准确。

守柔

Private Sub Document_Open() Dim Mydate As Date On Error Resume Next Mydate = DateSerial(Year(Now), Month(Now) - 1, Day(Now)) Date = Mydate ActiveDocument.Fields(1).Delete Selection.InsertDateTime DateTimeFormat:="EEEE年O月", InsertAsField:=True, _ DateLanguage:=wdSimplifiedChinese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False Mydate = DateSerial(Year(Now), Month(Now) + 1, Day(Now)) Date = Mydate End Sub 在你的文档中，用ALT+F11打开VB编辑器，在你的文档的“THISDOCUMEN”的代码窗口中粘贴此代码，以后每次打开该文档，此域将会自动更新（滞后一个月）：注意两点，一是你的文档中只有一个域，否则需对activedocument.fields(1)中的（1）作调整；不要试图用F9更新此域；

当然，还可以直接转为文本式，则可避免此问题。

先试一下！

R.R.

Word 的日期域能不能作加减运算? 是否只能用VBA?

守柔

以前也有讨论过此问题，没有答案。

我也曾试过多次，效果不一样，找不到规律。

另外一个方法，是放在EXCEL中，用公式比较容易。

cxffxc

不能加减