以文本方式查看主题

-  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=129350)
--  作者：天一生水
--  发布时间：2018/12/26 22:35:00
--  [求助]word报表清除空行
老师好！
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编辑过]
--  作者：有点甜
--  发布时间：2018/12/26 23:10:00
--  

wrt.Build()

 

改成

 

wrt.Build()

wrt.quit