ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 1181|回复: 19

[求助] WORD中英文日期需要批量替换为中文日期

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-3-18 11:54 | 显示全部楼层 |阅读模式
有1000多页这种表格,要求:JAN-2018这种格式的,可以改成2018年1月11-MAR-2014这种格式改为2014年3月11日

sample.zip

22.19 KB, 下载次数: 8

范例

TA的精华主题

TA的得分主题

发表于 2020-3-18 14:36 来自手机 | 显示全部楼层
只要在一个文件内,统一设置格式就可以了吧!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-18 15:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-3-18 18:08 | 显示全部楼层
Sub 替()
    With ActiveDocument.Content.Find
        .Execute "JAN-2018", , , 1, , , , , , "2018年1月", 2
        .Execute "11-MAR-2014", , , 1, , , , , , "2014年3月11日", 2
    End With
End Sub

TA的精华主题

TA的得分主题

发表于 2020-3-19 01:22 | 显示全部楼层
* 不好意思,我给 相见 补充一下。
* 楼主,请注意:下面的宏,不能处理表格外日期;也不能处理表格内如“Jan”这样的小写日期,只能处理表格内大写月份如“JAN”;另外,请楼主自行核查英文月份是否正确,请处理前备份文档!
  1. Sub aaaa????????????()
  2.     Dim s$, v&
  3.     With ActiveDocument.Content.Find
  4.         .ClearFormatting
  5.         .Text = "[0-9]{1,2}-[A-Za-z]{3}-[0-9]{4}"
  6.         .Forward = True
  7.         .MatchWildcards = True
  8.         Do While .Execute
  9.             With .Parent
  10.                 If .Information(12) Then
  11.                     s = .Text
  12.                     v = Len(s)
  13.    
  14.                     If v = 10 Then
  15.                         s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 1) & "??"
  16.                     Else
  17.                         s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 2) & "??"
  18.                     End If
  19.    
  20.                     s = Replace(s, "JAN", "1??")
  21.                     s = Replace(s, "FEB", "2??")
  22.                     s = Replace(s, "MAR", "3??")
  23.                     s = Replace(s, "APR", "4??")
  24.                     s = Replace(s, "MAY", "5??")
  25.                     s = Replace(s, "JUN", "6??")
  26.                     s = Replace(s, "JUL", "7??")
  27.                     s = Replace(s, "AUG", "8??")
  28.                     s = Replace(s, "SEP", "9??")
  29.                     s = Replace(s, "OCT", "10??")
  30.                     s = Replace(s, "NOV", "11??")
  31.                     s = Replace(s, "DEC", "12??")
  32.    
  33.                     .Text = s
  34.                     .Font.Color = wdColorRed '????????д?????????
  35.                 End If
  36.                 .Start = .End
  37.             End With
  38.         Loop
  39.     End With

  40. '''
  41.     With ActiveDocument.Content.Find
  42.         .ClearFormatting
  43.         .Text = "[A-Za-z]{3}-[0-9]{4}"
  44.         .Forward = True
  45.         .MatchWildcards = True
  46.         Do While .Execute
  47.             With .Parent
  48.                 If .Information(12) Then
  49.                     If Len(.Paragraphs(1).Range.Text) > 10 Then GoTo sk
  50.    
  51.                     s = .Text
  52.                     s = Right(s, 4) & "??" & Left(s, 3)
  53.    
  54.                     s = Replace(s, "JAN", "1??")
  55.                     s = Replace(s, "FEB", "2??")
  56.                     s = Replace(s, "MAR", "3??")
  57.                     s = Replace(s, "APR", "4??")
  58.                     s = Replace(s, "MAY", "5??")
  59.                     s = Replace(s, "JUN", "6??")
  60.                     s = Replace(s, "JUL", "7??")
  61.                     s = Replace(s, "AUG", "8??")
  62.                     s = Replace(s, "SEP", "9??")
  63.                     s = Replace(s, "OCT", "10??")
  64.                     s = Replace(s, "NOV", "11??")
  65.                     s = Replace(s, "DEC", "12??")
  66.    
  67.                     .Text = s
  68.                     .Font.Color = wdColorPink '??????д?????????
  69. sk:
  70.                 End If
  71.                 .Start = .End
  72.             End With
  73.         Loop
  74.     End With
  75.     MsgBox "OK!!!!!!!!!!!", 0 + 48
  76. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-19 10:28 | 显示全部楼层
413191246se 发表于 2020-3-19 01:22
* 不好意思,我给 相见 补充一下。
* 楼主,请注意:下面的宏,不能处理表格外日期;也不能处理表格内如“ ...

感谢大佬,解决了,谢谢谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-19 10:30 | 显示全部楼层
413191246se 发表于 2020-3-19 01:22
* 不好意思,我给 相见 补充一下。
* 楼主,请注意:下面的宏,不能处理表格外日期;也不能处理表格内如“ ...

另外,如果日期格式22-JAN-2019执行代码后改为2019年1月22日了,但是01-JAN-2019也同样改成了2019年1月01日了,这个01能不能加一个条件,改成2019年1月1日呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-19 11:09 | 显示全部楼层
22-Apr-2009 这类格式的日期替换成2009年4月22日格式的日期,以此类推
8-Nov-2014这类格式的日期替换成2009年11月8日格式的日期,以此类推
??-Mar-2017 这类格式的日期替换成2017年3月??日格式的日期,以此类推
??-???-2014 这类格式的日期替换成2014年??月??日格式的日期,以此类推
求助大神宏代码。谢谢!

Sample2.zip

834.41 KB, 下载次数: 7

TA的精华主题

TA的得分主题

发表于 2020-3-19 14:25 | 显示全部楼层
* 楼主,你好!大神 不敢当! 杜先生及各位都是才是大神哩!
* 请备份好原始文件后复制一份来测试,表内表外日期均处理(请删除第1版代码)。
  1. Sub aaaa????????????_v2()
  2.     Dim s$, v&
  3.     With ActiveDocument.Content.Find
  4.         .ClearFormatting
  5.         .Text = "[0-9]{1,2}-[A-Za-z]{3}-[0-9]{4}"
  6.         .Forward = True
  7.         .MatchWildcards = True
  8.         Do While .Execute
  9.             With .Parent
  10.                 s = .Text
  11.                 v = Len(s)

  12.                 If v = 10 Then
  13.                     s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 1) & "??"
  14.                 Else
  15.                     s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 2) & "??"
  16.                 End If

  17.                 s = Replace(s, "JAN", "1??")
  18.                 s = Replace(s, "FEB", "2??")
  19.                 s = Replace(s, "MAR", "3??")
  20.                 s = Replace(s, "APR", "4??")
  21.                 s = Replace(s, "MAY", "5??")
  22.                 s = Replace(s, "JUN", "6??")
  23.                 s = Replace(s, "JUL", "7??")
  24.                 s = Replace(s, "AUG", "8??")
  25.                 s = Replace(s, "SEP", "9??")
  26.                 s = Replace(s, "OCT", "10??")
  27.                 s = Replace(s, "NOV", "11??")
  28.                 s = Replace(s, "DEC", "12??")
  29.                
  30.                 s = Replace(s, "Jan", "1??")
  31.                 s = Replace(s, "Feb", "2??")
  32.                 s = Replace(s, "Mar", "3??")
  33.                 s = Replace(s, "Apr", "4??")
  34.                 s = Replace(s, "May", "5??")
  35.                 s = Replace(s, "Jun", "6??")
  36.                 s = Replace(s, "Jul", "7??")
  37.                 s = Replace(s, "Aug", "8??")
  38.                 s = Replace(s, "Sep", "9??")
  39.                 s = Replace(s, "Oct", "10??")
  40.                 s = Replace(s, "Nov", "11??")
  41.                 s = Replace(s, "Dec", "12??")

  42.                 .Text = s
  43.                 .Font.Color = wdColorRed '????????д?????????
  44.                 .Start = .End
  45.             End With
  46.         Loop
  47.     End With

  48. '''
  49.     With ActiveDocument.Content.Find
  50.         .ClearFormatting
  51.         .Text = "[A-Za-z]{3}-[0-9]{4}"
  52.         .Forward = True
  53.         .MatchWildcards = True
  54.         Do While .Execute
  55.             With .Parent
  56.                 If Len(.Paragraphs(1).Range.Text) > 10 Then GoTo sk
  57.                 s = .Text
  58.                 s = Right(s, 4) & "??" & Left(s, 3)

  59.                 s = Replace(s, "JAN", "1??")
  60.                 s = Replace(s, "FEB", "2??")
  61.                 s = Replace(s, "MAR", "3??")
  62.                 s = Replace(s, "APR", "4??")
  63.                 s = Replace(s, "MAY", "5??")
  64.                 s = Replace(s, "JUN", "6??")
  65.                 s = Replace(s, "JUL", "7??")
  66.                 s = Replace(s, "AUG", "8??")
  67.                 s = Replace(s, "SEP", "9??")
  68.                 s = Replace(s, "OCT", "10??")
  69.                 s = Replace(s, "NOV", "11??")
  70.                 s = Replace(s, "DEC", "12??")
  71.                
  72.                 s = Replace(s, "Jan", "1??")
  73.                 s = Replace(s, "Feb", "2??")
  74.                 s = Replace(s, "Mar", "3??")
  75.                 s = Replace(s, "Apr", "4??")
  76.                 s = Replace(s, "May", "5??")
  77.                 s = Replace(s, "Jun", "6??")
  78.                 s = Replace(s, "Jul", "7??")
  79.                 s = Replace(s, "Aug", "8??")
  80.                 s = Replace(s, "Sep", "9??")
  81.                 s = Replace(s, "Oct", "10??")
  82.                 s = Replace(s, "Nov", "11??")
  83.                 s = Replace(s, "Dec", "12??")

  84.                 .Text = s
  85.                 .Font.Color = wdColorPink '??????д?????????
  86. sk:
  87.                 .Start = .End
  88.             End With
  89.         Loop
  90.     End With

  91. '0X??0X???滻
  92.     With ActiveDocument.Content.Find
  93.         .Execute "(0)([0-9]??)", , , 1, , , , , , "\2", 2
  94.         .Execute "(0)([0-9]??)", , , 1, , , , , , "\2", 2
  95.     End With

  96.     MsgBox "OK!!!!!!!!!!!!!!!!!!!!!", 0 + 48
  97. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2020-3-19 14:26 | 显示全部楼层
本帖最后由 413191246se 于 2020-3-19 14:29 编辑

* 杜先生及各位老师才是大神!(上楼“都是”应该是“老师”才对,我用五笔打字。)
* 宏名汉字如果不正确显示,请改为英文,如:Date2Chn,或:test
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-8-6 14:36 , Processed in 0.070571 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表