如何选择性的对所有的数字加千分位?

qq284417238

代码功能:对所有的数字加千分位，但是不加尾数.00                                    

(下面代码能将word中针对全文档的数字都变为千分位,但是我需要的是仅将"元"这个字之前的数字变成千分位
比如:word文档的内容是"2012年我花了999999元钱",应用下面的代码就会变成"2,012年我花了999,999元钱")

Sub yycealjj()
Dim myRange
Dim FindChar As String, RepChar As String
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
FindChar = "([0-9])([0-9]{3}[!0-9])"
RepChar = "\1,\2"
With ActiveDocument.Content.Find '此处针对全文档
.ClearFormatting '清除格式
.MatchWildcards = True
Do While .Execute(findtext:=FindChar) = True '如果发现
.Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll
Loop
If .Execute(findtext:=FindChar) = False Then
Exit Sub
End If
End With
Application.ScreenUpdating = False '开启屏幕更新
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

沟壑中的鱼庚

坐等结果出现

413191246se

略。。。。。。请详见我通用模板帖子（千分位）宏。

xwdys

试一下：
FindChar = "([0-9])([0-9]{3}[!0-9])"
RepChar = "\1,\2"

改成：
FindChar = "([0-9])([0-9]{3})([!][0-9年])"
RepChar = "\1,\2\3"

autumnalRain

WORD也太难了

qq284417238

xwdys 发表于 2015-9-4 07:15
试一下：
FindChar = "([0-9])([0-9]{3}[!0-9])"
RepChar = "\1,\2"

老师回复晚了,抱歉,你那么改能够实现我的要求,但是我写的例子里面写的条件少了,不光是有以年结尾的的数字,还有很多其他单位的内容,以及没有单位的数字,对于这些数字,也随着变成千分位了

qq284417238

413191246se 发表于 2015-9-2 22:26
略。。。。。。请详见我通用模板帖子（千分位）宏。

非常感谢,已经完美运行,暂时没发现问题
谢谢老师