我在程序中打开一个word模板（劳动合同),通过程序自动将内容写入WORD文件，然后想指定一个文件名（姓名+"劳动合同"），打开"另存为"对话框，保存。其实可以直接保存，打开"另存为"对话框是为了随机选择保存路径。
不知打开WORD"另存为"对话框（附带指定的文件名)的代码怎么写。
请大家指教啊。

谢谢，但我不是这个意思，我是想打开另存为对话框，因为文件保存路径不确定，想通过对话框进行随机选择。

这个问题难道没有解决办法吗？

我知道EXCEL可以这样写：
   SaveFile = Application.GetSaveAsFilename(InitialFileName:="指定的文件名", _
               fileFilter:="MicroSoft Office Excel 工作薄 (*.xls), *.xls", Title:="另存为")
   ActiveWorkbook.SaveAs Filename:=SaveFile

但WORD不知如何写。好象没有类似 GetSaveAsFilename（）的函数。

SaveFile=Oword.ActiveDOcument.SaveAs(指定文件名)
可以按指定文件名保存文件，但打不开“另存为”对话框，选择不了保存路径啊

唉呀，急死了

vba中：
dialogs(wdDialogFileSaveAs).Show  &&可以打开"另存为"对话框
这个代码在VFP中应怎么写

oword=creatobject("word.application")
oword.documents.open("文件名")
..........
*打开"另存为"对话框，获取保存路径和文件名
saveFile=  ?（不知怎么写)
Oword.ActiveDOcument.SaveAs(saveFile)
oword.visible=.t.
oword=.null.

多谢啊，我也是采取了这个办法，先用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中的文件的，就没试。