WORD中的大写金额处理

smhf_6

最近因同事要求，合同中的大写金额比较麻烦，希望能改进，我网上查了，没有一个完美的办法．
故我借鉴了WORD中的域处理，结合了EXCEL中的一些方法，制作了以下代码，
但因每个人的具体应用是不同的，代码不能一成不变，不同的场合是需要调整的，在此仅供参考．
文档中有一个转大写代码，还有一个菜单代码，(菜单中会出"金额大写"按钮），其中大写代码如下：

'格式合同中是“————元”，故不用考虑元、角、分  　
Sub xzmje()
Dim tem1, tem2
    If IsNumeric(Selection.Text) = True Then
        tem3 = Selection.Text
        If InStr(Selection.Text, ".") > 0 Then
        tem1 = Split(Selection.Text, ".")(0)
        tem2 = Split(Selection.Text, ".")(1)
        tem2 = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(tem2, "0", "零"), "1", "壹"), "2", "贰"), "3", "叁"), "4", "肆"), "5", "伍"), "6", "陆"), "7", "柒"), "8", "捌"), "9", "玖")
        tem2 = "点" & tem2
        Selection.Fields.Add Range:=Selection.Range, Text:="= " & tem1 & "\* CHINESENUM2"
        Selection = Replace(Replace(Selection & tem2, "　", ""), vbCr, "")
        Else
        Selection.Fields.Add Range:=Selection.Range, Text:="= " & Selection.Text & "\* CHINESENUM2"
        Selection = Replace(Selection, vbCr, "")
        End If
    End If
End Sub
另外，WORD中使用宏，宏安全性请设为"中"
使用方法：文档中输入数字后，选中数字，点击按钮．

changxuegu

楼主辛苦了，谢谢分享！

tangqingfu

谢谢楼主的分享！
只能处理选中连续数字。
能否修改为：如果有选中区域，则对选中的区域进行处理，否则做全文处理？

smhf_6

tangqingfu 发表于 2012-3-31 09:27
谢谢楼主的分享！
只能处理选中连续数字。
能否修改为：如果有选中区域，则对选中的区域进行处理，否则做 ...

谢谢大侠关注，我在做前也搜索参考了本论坛的帖子，示例文件中用的是域代码，数据虽然在WORD中，但在WORD的表格中，故尚有确定的位置
我因位置是不确定的，故采用选中区域，且对选中区域是有要求的，必须符合某一条件，然后处理
如果对未选中区域处理，这个有点难，因为文中什么内容都有，有文字、数字、字母、图片等等，若逐字判断，则判断1个？2个？3个？等等不好定，且文中并非所有的数字均要转为大写。
其实，前面我讲到每个人的文档不同，要求不同，只能具体情况具体对待了，况且我写的也在不断改进中。

tangqingfu

谢谢smhf_6兄的回复！
如果有多处金额，用您的处理起来可能就比较麻烦了，所以才有一劳永逸的想法。
期待smhf_6兄更多Word VBA作品……

cock0532

我是做财务的，谢谢，学习了

hshwxm

感觉还是有用的，谢谢楼主分享！！！

kqbt

tang兄提出的：
1、关于判断选区形态的问题，其实我看论坛里面的人写过很多次了，比如：
  Dim wRng As Range
   Set wRng = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
2、关于多个金额批处理问题，则可以用查找替换来一一匹配，比如：
  Do While wRng.Find.Execute(findtext:="[0-9.]@元", MatchWildcards:=True)
      ......
   Loop

王城大纛

这个也很有意思啊

送児

我输入数字后 没有看到按钮 请楼主告诉一下 谢谢