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

oleapp=createobject("word.application")
oleapp.visible=.t. 
fdoc=oleapp.Documents.Add 
fdoc.saveas("c:\test.doc") 
oleapp.quit 

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

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

看OFFICE中自带的VBA文件

我知道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.

我也查不到打开对话框的方法。但是可以变通一下，我是这样做的：[附件][/附件]，可以供参考。得到路径和文件名后就好办了 。

[ 本帖最后由 qjbzjp 于 2014-1-8 18:44 编辑 ]