主题：防止保存word文档时出现错误提示

示例

Dim wdc As New WordCreator
wdc.Add(New Word.Objects.RtfString("这是第一句"))
wdc.LineBreak() '另起一行
wdc.Add(New Word.Objects.RtfString("这是第二句"))
wdc.PageBreak() '另起一页
wdc.AddParagraph("这是一个段落")
wdc.LineBreak() '插入空行
wdc.AddParagraph("这也是一个段落" & vbCrLf & "段内强制换行")
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)

老师，这个示例中，当test.docx文档为打开状态时，系统会提示出错。

怎样写代码：如果文档打开时，先自动关闭再保存 ？