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

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

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

直接写

<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