vb写入word以后另存为时出现有关问题

求助：vb写入word以后另存为时出现问题
 
 以下是本人写的一段代码，我的程序是用vb计算一些数据，自己编辑一个word作为模板，然后用vb把计算的数据写入word对应位置。之前的代码基本实现，但是在写入word之后另存为时遇到问题了。
  以下是我代码的另存为部分，我的目的是不让用户修改我的模板，所以无论用户是否另存为我的word文档都会关掉。但是在选择另存为的时候可以点击，但是就是没有文件生成....不知道什么原因，求指导！先谢谢了
  Dim savedocuments As SaveFileDialog
  savedocuments = New SaveFileDialog
  savedocuments.FileName = "系统CAD设计"
  savedocuments.Filter = "Word Document(*.docx)|*.doc"
  savedocuments.DefaultExt = "Word Document(*.docx)|*.doc"
  If savedocuments.ShowDialog = Windows.Forms.DialogResult.OK Then
 
  WordDocument.SaveAs2(filename, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)

  WordDocument.Close()
  WordAPP.Quit()
  Else
  WordDocument.Close()
  WordAPP.Quit()

  End If

------解决方案--------------------
Dim v As Object = System.Reflection.Missing.Value
 WordDocument.SaveAs(filename, v, v, v, v, v, v, v, v, v, v, v, v, v, v, v)
WordDocument.Close(False, v, v)
 WordAPP.Quit(False, v, v)

我用上面这个代码，是可以另存的啊