主题：[求助]word报表-子表金额中文大写代码

<Cumoney(*[%Sum(小計)]*)>  这个代码不能实现转大写金额，求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:word报表-子表金额中文大写代码.rar

此主题相关图片如下：word报表子表汇总，大寫人民幣代码求助.png

word没有统计一说，请用代码直接给word赋值

 

http://www.foxtable.com/webhelp/scr/2890.htm

 

 [%室内设计合同分项子表,Sum(小計)] 这个已经统计出阿拉伯数字了，想把这个数字转换成 壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖圆

上面帮助没看懂，代码写在哪里？

直接写

 

<CUMoney([%室内设计合同分项子表,Sum(小計)])>

前辈，上面代码可以了，谢谢

 

这个做不到。word报表就是单独一条数据套打的，列表形式报表尽量用Excel来做。

或者，你在生成word报表之后，重新打开报表，删除空白表格

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim m As Long, n As Long
    m = t.Rows.Count
    For i As Integer = m To 1 Step -1
        If t.cell(i, 1).Range.Text.ToString.length = 2 Then
            t.cell(i, 1).range.rows.delete
        End If
    Next
    app.visible = True
   
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try