以下是引用iamhyf在2014-1-8 13:05:23的发言：
sdta版主的方法好，非常直观。学习了，感谢。
稍有一点遗憾，就是Word又不能直接弹到最前了。代码如下：
SaveFile=PUTFILE("文档另存为",指定文件名,"*.Doc")
oWord.ActiveDocument.SaveAs(SaveFile)
oWord.Visible=.T.
Oword=.null.
先关闭，再打开，两个效果就兼顾了，既有“另存为”对话框，又能让WORD文件直接弹出到最前端，速度也没什么区别：sdta版主的方法好，非常直观。学习了，感谢。
稍有一点遗憾，就是Word又不能直接弹到最前了。代码如下：
SaveFile=PUTFILE("文档另存为",指定文件名,"*.Doc")
oWord.ActiveDocument.SaveAs(SaveFile)
oWord.Visible=.T.
Oword=.null.
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 编辑 ]
