word带斜杠日期转换中文日期怎么弄？

wali2008

在word文档中通过宏把“2017/10/10”这样日期的文本批量转换成“2017年10月10日”？求教各路大神。

duquancai

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

wali2008

非常感谢！

wali2008

我在word中加了宏，但是运行怎么没有反应呢？再帮我看看咧
Sub zhuanh()
    ActiveDocument.Content.Find.Execute "([0-9]{4})/([0-9]{2})/([0-9]{2})", , , 1, , , , , , "\1年\2月\3日", 2
End Sub

wdpfox

下载学习，谢谢分享！

13907933959

wali2008 发表于 2017-11-8 17:23
我在word中加了宏，但是运行怎么没有反应呢？再帮我看看咧
Sub zhuanh()
    ActiveDocument.Content.Fin ...

网友好！

杜前辈的代码没有问题，是你的附件和一楼的以不一样了，如要按你现在的附件替换，则要把杜前辈的代码改动一下、即可。

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

wali2008

哦！我明白了，原来月份和日期是2位数，现在是1位数，非常感谢两位朋友不吝指教。

duquancai

wali2008 发表于 2017-11-9 08:55
哦！我明白了，原来月份和日期是2位数，现在是1位数，非常感谢两位朋友不吝指教。

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