[求助]在窗口中预览word报表时存在的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

预览可以随时查看数据全貌，比生成报表后再查看方便些，但是遇到问题了，请指教。

第一段代码，可运行（建立一个WebBrowser控件窗口）：

'''

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim tm As String = ProjectPath & "Attachments\11（不含表格）.doc"

Dim fl As String = ProjectPath & "Reports\11（不含表格）doc"

Dim wrt As New WordReport(Tables("表AA"),tm,fl)

wrt.Build()

wrt.Quit()

wbr.Address = fl

第二段代码是去段落空行的，加上后就不能运行了：

Dim app As New MSWord.Application

try

Dim doc = app.Documents.Open(fl)

doc.Content.Find.Execute(FindText:="^l", replacewith:="^p", Replace:=2)

doc.Content.Find.Execute(FindText:="^13", replacewith:="^p", Replace:=2)

For Each k As object In doc.Paragraphs

k.Range.Select

If Len(k.Range.text) = 1 Then k.Range.Delete

If app.Selection.Characters(1).Text = Chr(10) Then app.Selection.Characters(1).Delete

Loop Until app.Selection.Characters(1).Text <> Chr(10)

'删除表格空行：

Dim tb As Object, r As Object

With Doc

For Each tb In .Tables

For Each r In tb.Rows

r.Range.Find.Execute(FindText:="^l", replacewith:="^p", Replace:=2)

r.Range.Find.Execute(FindText:=" ", replacewith:="", Replace:=2)

r.Range.Find.Execute(FindText:="^w", replacewith:="", Replace:=2)

If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete

End With

doc.save

app.quit

catch ex As exception

msgbox(ex.message)

app.quit

End try

主题：[求助]在窗口中预览word报表时存在的问题