WORD中的数字千分位的添加VBA出问题了

maizi85

对所有的数字加千分位，并且自动加上尾数.00

Sub yycealjj1()
'本代码旨在解决WORD中数据转化为千分位
'数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807
'转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
NextFind: Set myRange = ActiveDocument.Content '定义为主文档文字部分
With myRange.Find '查找
.ClearFormatting '清除格式
.Text = "[0-9]{4,15}" '4到15位数据
.MatchWildcards = True '使用通配符
Do While .Execute '每次查找成功
i = 2 '起始值为2
'如果是有小数点
If myRange.Next(wdCharacter, 1) = "." Then
'进行一个未知循环
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1 '只要是[0-9]任意数字则累加
Wend
'重新定义RANGE对象
myRange.SetRange myRange.Start, myRange.End + i - 1
End If
myValue = VBA.Val(myRange) '保险起见转换为数据,也可省略
myRange = VBA.Format(myValue, "Standard") '转为千分位格式
GoTo NextFind '转到指定行
Loop
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

这个是论坛里面提供的VBA代码，但是如何改为在WORD中只在选中的范围里添加千分位，因为文档中会有很多数据，比如2011年，这些年份就不需要添加千分位，如果用上面的代码，它就会替换掉年份，把年份也当数字了，请大家帮忙解决。谢谢。

maizi85

大家帮忙看看，我相信大家在工作中也有遇到，希望能有人解决

maizi85

怎么没人看呢，等待解决

maizi85

还是没人看，伤心

Siriudie

把倒数第二行改成

1.     ActiveDocument.Content.Find.Execute _
   
2.         FindText:=",([0-9]{3}).00年", _
   
3.         ReplaceWith:="\1年", _
   
4.         MatchWildcards:=True, _
   
5.         Replace:=wdReplaceAll
   
6.     Application.ScreenUpdating = True '恢复屏幕更新

复制代码