WORD中英文日期需要批量替换为中文日期

benny_thyj

有1000多页这种表格，要求：JAN-2018这种格式的，可以改成2018年1月11-MAR-2014这种格式改为2014年3月11日

乐乐2006201505

只要在一个文件内，统一设置格式就可以了吧！

benny_thyj

有没有大佬帮助一下啊，急！！

相见是缘8

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

413191246se

* 不好意思，我给 相见 补充一下。
* 楼主，请注意：下面的宏，不能处理表格外日期；也不能处理表格内如“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. '''
    
42.     With ActiveDocument.Content.Find
    
43.         .ClearFormatting
    
44.         .Text = "[A-Za-z]{3}-[0-9]{4}"
    
45.         .Forward = True
    
46.         .MatchWildcards = True
    
47.         Do While .Execute
    
48.             With .Parent
    
49.                 If .Information(12) Then
    
50.                     If Len(.Paragraphs(1).Range.Text) > 10 Then GoTo sk
    
51.    
    
52.                     s = .Text
    
53.                     s = Right(s, 4) & "??" & Left(s, 3)
    
54.    
    
55.                     s = Replace(s, "JAN", "1??")
    
56.                     s = Replace(s, "FEB", "2??")
    
57.                     s = Replace(s, "MAR", "3??")
    
58.                     s = Replace(s, "APR", "4??")
    
59.                     s = Replace(s, "MAY", "5??")
    
60.                     s = Replace(s, "JUN", "6??")
    
61.                     s = Replace(s, "JUL", "7??")
    
62.                     s = Replace(s, "AUG", "8??")
    
63.                     s = Replace(s, "SEP", "9??")
    
64.                     s = Replace(s, "OCT", "10??")
    
65.                     s = Replace(s, "NOV", "11??")
    
66.                     s = Replace(s, "DEC", "12??")
    
67.    
    
68.                     .Text = s
    
69.                     .Font.Color = wdColorPink '??????д?????????
    
70. sk:
    
71.                 End If
    
72.                 .Start = .End
    
73.             End With
    
74.         Loop
    
75.     End With
    
76.     MsgBox "OK!!!!!!!!!!!", 0 + 48
    
77. End Sub

复制代码

benny_thyj

413191246se 发表于 2020-3-19 01:22
* 不好意思，我给 相见 补充一下。
* 楼主，请注意：下面的宏，不能处理表格外日期；也不能处理表格内如“ ...

感谢大佬，解决了，谢谢谢谢！

benny_thyj

413191246se 发表于 2020-3-19 01:22
* 不好意思，我给 相见 补充一下。
* 楼主，请注意：下面的宏，不能处理表格外日期；也不能处理表格内如“ ...

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

benny_thyj

22-Apr-2009 这类格式的日期替换成2009年4月22日格式的日期，以此类推
8-Nov-2014这类格式的日期替换成2009年11月8日格式的日期，以此类推
??-Mar-2017 这类格式的日期替换成2017年3月??日格式的日期，以此类推
??-???-2014 这类格式的日期替换成2014年??月??日格式的日期，以此类推
求助大神宏代码。谢谢！

413191246se

* 楼主，你好！大神 不敢当！ 杜先生及各位都是才是大神哩！
* 请备份好原始文件后复制一份来测试，表内表外日期均处理（请删除第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. 
    
13.                 If v = 10 Then
    
14.                     s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 1) & "??"
    
15.                 Else
    
16.                     s = Right(s, 4) & "??" & Mid(s, InStr(s, "-") + 1, 3) & Left(s, 2) & "??"
    
17.                 End If
    
18. 
    
19.                 s = Replace(s, "JAN", "1??")
    
20.                 s = Replace(s, "FEB", "2??")
    
21.                 s = Replace(s, "MAR", "3??")
    
22.                 s = Replace(s, "APR", "4??")
    
23.                 s = Replace(s, "MAY", "5??")
    
24.                 s = Replace(s, "JUN", "6??")
    
25.                 s = Replace(s, "JUL", "7??")
    
26.                 s = Replace(s, "AUG", "8??")
    
27.                 s = Replace(s, "SEP", "9??")
    
28.                 s = Replace(s, "OCT", "10??")
    
29.                 s = Replace(s, "NOV", "11??")
    
30.                 s = Replace(s, "DEC", "12??")
    
31.                
    
32.                 s = Replace(s, "Jan", "1??")
    
33.                 s = Replace(s, "Feb", "2??")
    
34.                 s = Replace(s, "Mar", "3??")
    
35.                 s = Replace(s, "Apr", "4??")
    
36.                 s = Replace(s, "May", "5??")
    
37.                 s = Replace(s, "Jun", "6??")
    
38.                 s = Replace(s, "Jul", "7??")
    
39.                 s = Replace(s, "Aug", "8??")
    
40.                 s = Replace(s, "Sep", "9??")
    
41.                 s = Replace(s, "Oct", "10??")
    
42.                 s = Replace(s, "Nov", "11??")
    
43.                 s = Replace(s, "Dec", "12??")
    
44. 
    
45.                 .Text = s
    
46.                 .Font.Color = wdColorRed '????????д?????????
    
47.                 .Start = .End
    
48.             End With
    
49.         Loop
    
50.     End With
    
51. 
    
52. '''
    
53.     With ActiveDocument.Content.Find
    
54.         .ClearFormatting
    
55.         .Text = "[A-Za-z]{3}-[0-9]{4}"
    
56.         .Forward = True
    
57.         .MatchWildcards = True
    
58.         Do While .Execute
    
59.             With .Parent
    
60.                 If Len(.Paragraphs(1).Range.Text) > 10 Then GoTo sk
    
61.                 s = .Text
    
62.                 s = Right(s, 4) & "??" & Left(s, 3)
    
63. 
    
64.                 s = Replace(s, "JAN", "1??")
    
65.                 s = Replace(s, "FEB", "2??")
    
66.                 s = Replace(s, "MAR", "3??")
    
67.                 s = Replace(s, "APR", "4??")
    
68.                 s = Replace(s, "MAY", "5??")
    
69.                 s = Replace(s, "JUN", "6??")
    
70.                 s = Replace(s, "JUL", "7??")
    
71.                 s = Replace(s, "AUG", "8??")
    
72.                 s = Replace(s, "SEP", "9??")
    
73.                 s = Replace(s, "OCT", "10??")
    
74.                 s = Replace(s, "NOV", "11??")
    
75.                 s = Replace(s, "DEC", "12??")
    
76.                
    
77.                 s = Replace(s, "Jan", "1??")
    
78.                 s = Replace(s, "Feb", "2??")
    
79.                 s = Replace(s, "Mar", "3??")
    
80.                 s = Replace(s, "Apr", "4??")
    
81.                 s = Replace(s, "May", "5??")
    
82.                 s = Replace(s, "Jun", "6??")
    
83.                 s = Replace(s, "Jul", "7??")
    
84.                 s = Replace(s, "Aug", "8??")
    
85.                 s = Replace(s, "Sep", "9??")
    
86.                 s = Replace(s, "Oct", "10??")
    
87.                 s = Replace(s, "Nov", "11??")
    
88.                 s = Replace(s, "Dec", "12??")
    
89. 
    
90.                 .Text = s
    
91.                 .Font.Color = wdColorPink '??????д?????????
    
92. sk:
    
93.                 .Start = .End
    
94.             End With
    
95.         Loop
    
96.     End With
    
97. 
    
98. '0X??0X???滻
    
99.     With ActiveDocument.Content.Find
    
100.         .Execute "(0)([0-9]??)", , , 1, , , , , , "\2", 2
     
101.         .Execute "(0)([0-9]??)", , , 1, , , , , , "\2", 2
     
102.     End With
     
103. 
     
104.     MsgBox "OK!!!!!!!!!!!!!!!!!!!!!", 0 + 48
     
105. End Sub
     

复制代码

413191246se

* 杜先生及各位老师才是大神！(上楼“都是”应该是“老师”才对，我用五笔打字。）
* 宏名汉字如果不正确显示，请改为英文，如：Date2Chn，或：test