1异常处理

问题：备注行的换行，输出word后有时候会多了符号

解决：需要用代码处理一下换行符.replace(chr(10),"")

Dim tm As String  = ProjectPath & "Attachments\test.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\test.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
wrt.Replace("[第一列]",Tables("表A").Current("第一列").replace(chr(10),""))
wrt.BuildOne(Tables("表A").Current)
wrt.Show() '显示报表

2word报表推荐

在word推荐使用Chr(13)代替vbcrlf做换行符

更改前：

更改后：

而且在上述代码，发现vbCrlf也不一定会出问题，word的脾气比较奇怪