求助:vb写入word以后另存为时出现问题

fbhs1 2011-11-18 01:14:37

以下是本人写的一段代码,我的程序是用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
...全文
131 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
fbhs1 2011-11-19
  • 打赏
  • 举报
回复
问题发现了~~原来我多了一个missing......哎,小细节害死人,谢谢啦!!
[Quote=引用 1 楼 gxingmin 的回复:]

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)

我用上面这个代码……
[/Quote]
gxingmin 2011-11-18
  • 打赏
  • 举报
回复
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)

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

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧