Access2003报告Word + SAVE AS提示 [英] Access2003 Report to Word + SAVE AS Prompt
问题描述
我在访问vba代码中有这一行....我正在向Word发送一个自动打开单词的报告。
I have this line in access vba code.... I am sending a report to Word having word open automatically.
DoCmd.OutputTo acReport，" MyReport_OutPutDoc"，" RichTextFormat（*。rtf）"，" Report.doc"，True，""，0
DoCmd.OutputTo acReport, "MyReport_OutPutDoc", "RichTextFormat(*.rtf)", "Report.doc", True, "", 0
它会提示WORD打开
然后我有这些行
将dim bjWordApp作为对象
Dim bjWordApp as object
设置objWordApp = GetObject（，" Word.Application"）
Set objWordApp = GetObject(, "Word.Application")
objWordApp.Application.FileDialog（msoFileDialogSaveAs）.Show
objWordApp.Application.FileDialog(msoFileDialogSaveAs).Show
....用户现在有FILE SAVE对话框而不是FILE SAVE AS对话框....
.... the user now has the FILE SAVE dialog and not the FILE SAVE AS dialog....
即使指示了msoDileDialofSaveAs 。
even though the msoDileDialofSaveAs is indicated.
如果我在对话框（而不是Report.doc）中输入另一个名称，如"Docmd。*"中所述。 line - 并在对话框中点击保存...没有任何反应...
if I enter another name in the dialog ( not Report.doc ) as stated in the "Docmd.*" line - and hit save in the dialog... nothing happens...
如何从访问VBA提示WORD 对话框FILE SAVE AS它实际上有效吗？
how can I prompt from access VBA the WORD dialog FILE SAVE AS and it actually works ??
谢谢
推荐答案
好吧，没有人给你回复，所以这里是一个非权威的观点......
well no one has given you a reply so here is a non authoritative view....
你的docmd似乎工作正常。 这是独立的。 也就是说，如果其他代码行没有，那么你的导出工作正常。
your docmd appears to work fine. and that is stand alone. which is to say if the other lines of code aren't there your export works fine.
其他代码与Word交谈我不知道看到对特定文件的任何引用...... 另一方面，我不确定你为什么要这么做 - 但也许你有理由。
the other code talking to Word I don't see any reference to a specific document... on the otherhand I'm not sure why you are needing it either - but maybe you have your reasons.
抱歉没有更多的帮助。
这篇关于Access2003报告Word + SAVE AS提示的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
