在WORD文档中某一行如何设定自动变化的日期公式(显示:YYYY年(MM-1)月...

发布网友发布时间：2022-05-02 01:58

共2个回答

热心网友时间：2022-05-22 02:19

插入域——日期和时间，找到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月），下面是域代码。

热心网友时间：2022-05-22 03:37

直接使用宏吧。

配合自动图文集

'------------------以下放到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中，后一个放到模块中。在需要插入日期的位置执行“插入自动图文集宏”