主题：[求助]WORD进程不能自动清除

Dim tm As String  = ProjectPath & "Attachments\Ａ.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\Ａ" '指定目标文件

Dim wrt As New WordReport(Tables("表"),tm,fl) '定义一个WordReport

wrt.Build() '生成报表

wrt.quit

Dim app As New MSWord.Application

app.Documents.Open(fl)

app.PrintOut