word文档日期星期自动更新为昨天。

poposusu · 发表于 2019-9-16 07:52

本帖最后由 poposusu 于 2019-9-16 07:54 编辑

老师好，我每天都要i做报告，所以日期总要跟新，而且每天都做昨天的报告，有时日期会忘了更新，请老师指点，如何用word文档自动更新日期为T-*日，且对应的星期也更新，谢谢老师

413191246se · 发表于 2019-9-16 20:42

Sub AutoOpen()
Dim s$, t$
With ActiveDocument
If .Paragraphs(1).Range Like "20??年*月*日*" Then
.Paragraphs(1).Range.Delete
s = Weekday(Date)
If s = 1 Then s = 8
s = s - 1
If s = 1 Then
t = "星期日"
ElseIf s = 2 Then
t = "星期一"
ElseIf s = 3 Then
t = "星期二"
ElseIf s = 4 Then
t = "星期三"
ElseIf s = 5 Then
t = "星期四"
ElseIf s = 6 Then
t = "星期五"
ElseIf s = 7 Then
t = "星期六"
End If
With Selection
.HomeKey 6
.TypeText Text:=DateAdd("d", -1, Date)
.TypeParagraph
End With
.Characters(5).Text = "年"
If .Characters(7).Text = "-" Then .Characters(7).Text = "月"
If .Characters(8).Text = "-" Then .Characters(8).Text = "月"
.Paragraphs(1).Range.Characters.Last.InsertBefore Text:="日（" & t & " 晴～多云）"
End If
With .Paragraphs(1).Range.Font
.Color = wdColorRed
.Italic = False
End With
End With
End Sub

复制代码

413191246se · 发表于 2019-9-16 20:58

* 楼主，请将宏放在通用模板中，打开你的报告即可。

poposusu · 发表于 2019-9-24 08:08

413191246se 发表于 2019-9-16 20:58
* 楼主，请将宏放在通用模板中，打开你的报告即可。

谢谢老师指导，按照您的指导更新后出现个小问题：2019年9/23日（星期一晴～多云）月字没了，变成个/，这个请老师再指导下，谢谢

413191246se · 发表于 2019-9-24 09:22

本帖最后由 413191246se 于 2019-9-24 09:24 编辑

楼主，只须将连字符“-”替换为斜杠“/”即可，如下面：（倒数第10、11行代码）
If .Characters(7).Text = "/" Then .Characters(7).Text = "月"
If .Characters(8).Text = "/" Then .Characters(8).Text = "月"

poposusu · 发表于 2019-9-24 11:31

413191246se 发表于 2019-9-24 09:22
楼主，只须将连字符“-”替换为斜杠“/”即可，如下面：（倒数第10、11行代码）
If .Characte ...

老师，按您的方法更新了，但结果还是“2019年9/23日（星期一晴～多云）“

413191246se · 发表于 2019-9-24 14:08

楼主，请将倒数第10、9两行代码更新为下面代码，试试：
If .Characters(7) Like "[!0-9]" Then .Characters(7).Text = "月"
If .Characters(8) Like "[!0-9]" Then .Characters(8).Text = "月"

poposusu · 发表于 2019-9-24 16:36

413191246se 发表于 2019-9-24 14:08
楼主，请将倒数第10、9两行代码更新为下面代码，试试：
If .Characters(7) Like "[!0-9]" The ...

太牛了👍，谢谢老师指导

poposusu · 发表于 2019-9-24 16:37

413191246se 发表于 2019-9-24 14:08
楼主，请将倒数第10、9两行代码更新为下面代码，试试：
If .Characters(7) Like "[!0-9]" The ...

谢谢老师指导

		自动登录	找回密码
密码			免费注册

[求助] word文档日期星期自动更新为昨天。