word VBA解决数字变货币形式

4位数以内,由数字变中文货币形式
我要把4位数字变成中文的货币形式
需要的是中文的习惯
例如 2003 两千零三圆
2030 两千零三十圆
3000 三千圆
45 四十五圆

Sub CurToChr()
Dim str, temp, strout As String
Dim i, t, l, m As Integer
str = Selection.Text
l = 0 '控制千位是否为0
m = 0

i = CInt(str)
t = i \ 1000
i = i Mod 1000

If t <> 0 Then
temp = tochar(t)
strout = temp & "仟"
l = 1 '千位有数
End If

t = i \ 100
i = i Mod 100

If t <> 0 Then
temp = tochar(t)
strout = strout & temp & "佰"
l = 1 '百位有数
End If

If t = 0 And l = 1 Then
m = 1 '百位没数，千位有数
End If

t = i \ 10
i = i Mod 10

If t <> 0 Then
l = 1 '十位有数
temp = tochar(t)
If m = 1 Then
m = 0 'm=0的时候输出0
strout = strout & "零"
End If
strout = strout & temp & "拾"
End If

If t =

高分寻word-vba高手解决word图片和公式问题 VBA Word 模版的问题 如何在VBA中代替一个数字? 关于Word中 的VBA 编程 VBA控制EXCEL中的WORD（OLE） Office Excel中输入18位数字后三位数字变0是什么原因,如何解决? 寻WORD-VBA高手 WORD中嵌入控件使用问题 WORD里小写的数字可以直接变成大写的吗,怎么变 如何用Excel 的VBA实现数字汉字拆分？ word中的数字（分数,如3/4）不显示是什么原因，如何解决？