如何生成并保存word文档？

xiaoyaoke · 发表于 2007-10-25 11:12:14

生成一个word文档代码如下：
Function CreateWord()'As Word Application
Set WordApp = CreateObject("Word.Application") 'Create a new word Object
WordApp.Documents.Add 'Add the property of Word
WordApp.Visible = True 'Make it visible
Set CreateWord = WordApp
End Function
Call CreateWord()
已通过测试
可我不明白这个生成的word文档保存在系统的哪个位置呢？
还有如何可以在对它进行操作后保存这个word文档呢？
望达人指点

xiaoyaoke · 发表于 2007-10-25 11:19:43

操作后的保存也是适用vbs语言实现
自己查了好多资料也没找到相关信息...

xiaoyaoke · 发表于 2007-10-25 11:40:42

嘿嘿，刚才找到办法了
Function CreateWord(sFilePath)'As Word Application
Set WordApp = CreateObject("Word.Application") 'Create a new word Object
WordApp.Documents.Add 'Add the property of Word
WordApp.Visible = True 'Make it visible
WordApp.ActiveDocument.SaveAs(sFilePath)
Set CreateWord = WordApp
End Function
Call CreateWord(sFilePath)
加了这句代码：WordApp.ActiveDocument.SaveAs(sFilePath)

ycxlove11 · 发表于 2007-10-25 11:43:47

牛，自问自答

gev8561 · 发表于 2007-10-25 16:25:20

太强了！学习啦！

three116 · 发表于 2007-10-25 20:06:25

提供个操作Excel方法的东东

[ 本帖最后由 three116 于 2007-10-25 20:09 编辑 ]

5555 · 发表于 2008-4-26 10:15:07

下了，顶一个

sara815 · 发表于 2008-4-28 23:14:47

哇~
我也在照这个~

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 如何生成并保存word文档？

相关帖子

补充下

找到办法了~~~~

本帖子中包含更多资源

站长推荐 /1