阿Q吧 > 在WORD文档中某一行如何设定自动变化的日期公式（显示：YYYY年（MM-1）月）？

在WORD文档中某一行如何设定自动变化的日期公式（显示：YYYY年（MM-1）月）？

如：当前日期为10/10/2013 则公式自动显示为： 2013年09月

2025-03-14 21:20:08

推荐回答（3个）

回答1：

插入域——日期和时间，找到date域，格式中选择“2013年10月”的格式后确定。

提交后发现你是要先一个月，那还得想办法。

经过研究，这个域的输入有点复杂，得有点耐心才能得到正确的结果。下面是插入多层域后的结果：

{ QUOTE { IF { DATE \@"M" }="1" "{ ={ DATE \@"YYYY" }-1 }年12月" "{ DATE \@"YYYY" }年{ ={ DATE \@"M" }-1 }月"}}

插入域时，按Ctrl+F9，就自动插入一对花括号。诀窍：按上面的内容当输入内容到需要左花括号时，就按Ctrl+F9，当需要右花括号时，就把鼠标定位到自动插入的右花括号外。总之所有的花括号都是由按Ctrl+F9自动插入的，而不是手工输入的。并注意空格（贴图中有一个小点处就是空格）和所有数字、双引号必须是英文的。

下图上面是切换域代码后显示的效果（当前2013年10月，显示为2013年9月），下面是域代码。

回答2：

月DD日)。在Word文档中，您可以使用字段代码来实现自动变化的日期公式。以下是一种设置方式：1. 打开Word文档，将光标放在想要插入日期的位置。2. 按下键盘上的键盘组合Ctrl + F9，将插入一对大括号{}。3. 在大括号{}中，键入\"DATE\"，然后按下空格键。4. 键入引号\"YYYY年(MM月DD日)\"，然后按下空格键。5. 在引号之后，输入\"\\@ \"，然后再次按下空格键。6. 按下键盘上的键盘组合Ctrl + F9，再次插入一对大括号{}。7. 在新插入的大括号{}中，键入\"DATE\"，然后按下空格键。8. 键入引号\"yyyy/MM/dd\"，然后按下空格键。9. 最后，将两对大括号{}之间的光标放在任意位置，然后按下键盘上的键盘组合Shift + F9，使字段代码转换为结果（日期）。请注意，以上步骤中的日期格式和括号可以根据需要进行调整。希望这对您有所帮助。如果有任何问题，请告诉。

回答3：

直接使用宏吧。

配合自动图文集

'------------------以下放到ThisDocument中------------------

Private Sub Document_Open()
On Error Resume Next
Dim MyYear$, oYear%, oMonth%
MyYear = "我的年份"   '词条名称，无关紧要
oYear = Year(Date)       '获取当前年份
oMonth = Month(Date) - 1 '当前年份减去1
    If NormalTemplate.AutoTextEntries(MyYear) = "" Then
        NormalTemplate.AutoTextEntries.Add Name:=MyYear, Range:=Selection.Range
        NormalTemplate.AutoTextEntries(MyYear).Value = oYear & "年" & oMonth & "月"
    End If '初始化自动图文集
End Sub
'------------------以下放到模块中------------------
Sub 插入自动图文集()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXT  报告编号 ", PreserveFormatting:=True
End Sub

前一个宏放到ThisDocument中，后一个放到模块中。在需要插入日期的位置执行“插入自动图文集宏”

最新问答

矿泉水桶（大桶的）一般长多少宽多少（瓶口忽略不计），大桶的相当于平常的瓶装矿泉水的几瓶？

最新系统更新后，电量低提示音，真难听，可以关闭吗

长沙看心理医生收费多少？

血常规RDW和 RDW-CV RDW-SD是什么关系?

农业银行卡被垃黑而社保卡是不是也冻结了？