PUTFILE( )试下这个函数

多谢啊，我也是采取了这个办法，先用getdir()获得一个路径，加上文件名后，再用saveas()保存的。
不过我放弃用对话框选路径了，因为使用了对话框后，执行oword.visible=.t.不能让WORD文件窗口弹到最前，而是缩到了任务栏。
我现在是直接保存在C盘(因为考虑不管是什么电脑，总有一个C盘的）
oWord.ActiveDocument.SaveAs("C:\"+指定文件名)
oWord.Visible=.T.
oWord=.null.
Word文件直接弹到最前了。


[ 本帖最后由 iamhyf 于 2014-1-8 19:50 编辑 ]

sdta版主的方法好，非常直观。学习了，感谢。
稍有一点遗憾，就是Word又不能直接弹到最前了。代码如下：
SaveFile=PUTFILE("文档另存为",指定文件名,"*.Doc")
oWord.ActiveDocument.SaveAs(SaveFile)
oWord.Visible=.T.
Oword=.null.

昨天我也注意过PUTFILE()函数，但看解释理解为是另存VFP中的文件的，就没试。

学习

先关闭，再打开，两个效果就兼顾了，既有“另存为”对话框，又能让WORD文件直接弹出到最前端，速度也没什么区别：
SaveFile=PUTFILE("",指定文件名,"Doc")
oWord.ActiveDocument.SaveAs(SaveFile)
oWord.Quit
Oword=.null.

oWord=CREATEOBJECT("Word.Application")
oWord.Documents.Open(SaveFileName)
oWord.Visible=.T.
Oword=.null.

哈哈，完美！


[ 本帖最后由 iamhyf 于 2014-1-10 07:56 编辑 ]