老师好！
word报表中有些字段没有数据，我在生成报表后，加入清除空段落的代码，但是运行后，在进程中显示word被占用，是哪里的原因？
谢谢！
Dim tm As String = ProjectPath & "模板文件\-报表.doc"
Dim fl As String = ProjectPath & "Reports\-报表.doc"
Dim wrt As New WordReport(Tables("行政一审裁定驳回起诉"),tm,fl)
wrt.Build()
'清除报表空段落
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(fl)
For Each k As object In doc.Paragraphs
k.Range.Select
If Len(k.Range.text) = 1 Then k.Range.Delete
Do
If app.Selection.Characters(1).Text = Chr(10) Then app.Selection.Characters(1).Delete
Loop Until app.Selection.Characters(1).Text <> Chr(10)
Next
doc.save
catch ex As exception
msgbox(ex.message)
app.quit
End try
wrt.show()
ShowAppWindow("-报表.doc",2) ’显示在最前端
[此贴子已经被作者于2018/12/26 22:35:29编辑过]
加好友 
发短信
Post By：2018/12/26 22:35:00 [显示全部帖子]
