日期转换出错，求解？

wali2008 · 发表于 2017-11-11 21:56

本帖最后由 wali2008 于 2017-11-11 22:02 编辑

Sub 大写日期()
ActiveDocument.Content.Find.Execute "([0-9]{4})/([0-9]{2})/([0-9]{1})", , , 1, , , , , , "\1年\2月\3日", 2
ActiveDocument.Content.Find.Execute "([0-9]{4})/([0-9]{1})/([0-9]{2})", , , 1, , , , , , "\1年\2月\3日", 2
ActiveDocument.Content.Find.Execute "([0-9]{4})/([0-9]{1})/([0-9]{1})", , , 1, , , , , , "\1年\2月\3日", 2
ActiveDocument.Content.Find.Execute "([0-9]{4})/([0-9]{2})/([0-9]{2})", , , 1, , , , , , "\1年\2月\3日", 2
End Sub

转换2017/8/10的时候为何会出现2017年8月1日0这样的现象呢？怎么解决哦？

duquancai · 发表于 2017-11-11 22:24

Sub 日期格式转换()
With ActiveDocument.Content.Find
.Execute "([0-9]{4})/([0-9]{1,2})/([0-9]{1,2})", , , 1, , , , , , "\1年\2月\3日", 2
End With
End Sub

wali2008 · 发表于 2017-11-11 22:49

非常感谢，学习了！

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

[求助] 日期转换出错，求解？