- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]word报表-子表金额中文大写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106744)
-- 发布时间：2017/9/14 20:28:00
-- [求助]word报表-子表金额中文大写代码
<Cumoney(*[%Sum(小計)]*)> 这个代码不能实现转大写金额，求助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word报表-子表金额中文大写代码.rar |
此主题相关图片如下：word报表子表汇总，大寫人民幣代码求助.png
-- 发布时间：2017/9/14 20:33:00
--
word没有统计一说，请用代码直接给word赋值
http://www.foxtable.com/webhelp/scr/2890.htm
-- 发布时间：2017/9/14 20:37:00
--
[%室内设计合同分项子表,Sum(小計)] 这个已经统计出阿拉伯数字了，想把这个数字转换成 壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖圆
上面帮助没看懂，代码写在哪里？
-- 发布时间：2017/9/14 20:45:00
--
直接写
<CUMoney([%室内设计合同分项子表,Sum(小計)])>
-- 发布时间：2017/9/15 7:35:00
--
前辈，上面代码可以了，谢谢
-- 发布时间：2017/9/15 8:37:00
--
前辈，上面代码可以了，谢谢
这个做不到。word报表就是单独一条数据套打的，列表形式报表尽量用Excel来做。
-- 发布时间：2017/9/15 8:49:00
--
或者，你在生成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