请教各位哥哥姐姐，关于保存的问题

skyhen

小弟现有一段别人的代码，但这段代码中没有实现保存的功能。我试着用SAVEFILE的方法进行保存，但是不行。想请各位帮忙看看，给小弟一点指导，小弟先谢谢了。
代码如下：
Set p = CreateObject("Word.Application")
p.Visible = True
Set Doc = p.Documents.Add
Doc.Paragraphs.Add
Set Range = Doc.Paragraphs.Add.Range
Range.Text = "TestComplete"

xiaonan

试试这样
Doc.Save "C:\test.doc"

[ 本帖最后由 xiaonan 于 2006-7-27 15:50 编辑 ]

yangkinki

doc.saveas "d:\test.doc"
p.quit
set p=nothing

[ 本帖最后由 yangkinki 于 2006-7-27 12:35 编辑 ]

skyhen

经过版主的指点，问题解决了，谢谢两位版主对小弟的指导，谢谢