当前位置：首页 - 正文

...自动变化的日期公式(显示:YYYY年(MM-1)月)?

发布网友发布时间：2024-10-23 03:40

我来回答

共3个回答

热心网友时间：2024-11-14 01:57

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

热心网友时间：2024-11-14 01:51

直接使用宏吧。

配合自动图文集

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

热心网友时间：2024-11-14 01:52

月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，使字段代码转换为结果（日期）。请注意，以上步骤中的日期格式和括号可以根据需要进行调整。希望这对您有所帮助。如果有任何问题，请告诉。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

...自动变化的日期公式(显示:YYYY年(MM-1)月)?

最新推荐

猜你喜欢

热门推荐