• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

求助: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
...全文
87 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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)

我用上面这个代码,是可以另存的啊
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2011-11-18 01:14
社区公告
暂无公告