主题：麻烦老师帮我看看 为什么word生成文件会导致保存两次呢？经常提示文件为只读，有没有办法强制覆盖文件？

麻烦老师帮我看看 为什么word生成文件会导致保存两次呢？经常提示文件为只读，有没有办法强制覆盖文件？

当前代码如下：

Public Sub form319_word1_Ajax(rq as Request) 
 Dim e As RequestEventArgs = rq.e
Dim cmd As SQLCommand = rq.cmd 
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim tm As String  = ProjectPath & "Attachments\讯问通知书存根联.doc" '指定模板文件
Dim f1 As String = ProjectPath & "Reports\讯问通知书存根联"& e.Values("创建人") & e.Values("guid") & time &".doc" '指定目标文件
Dim f2 As String = ProjectPath & "Reports\讯问通知书存根联"& e.Values("创建人") & e.Values("guid") & time &".pdf" '指定目标PDF文件
Dim wrt As New WordReport(tm,f1)
wrt.AddDataTable("讯问通知书","主数据源","S elect * from {讯问通知书} where guid = '" & e.Values("guid") & "' ")
wrt.Build()
'wrt.SaveToPDF(f2) '保存为PDF文件
'wrt.Quit() '退出 
wrt.Show()
 '返回生产的报表路径
 e.WriteString("\Reports\讯问通知书存根联"& e.Values("创建人") & e.Values("guid") & time &".doc")
End Sub