在“另存为”对话框打开之前加载用户窗体

时间:2015-08-06 12:30:31

标签: vba

我有一个用于索引和存档文档的软件项目。

这是在Microsoft Word 2007中使用VBA实现的。

我有这种情况:

我想在打开另存为对话框之前打开用户表单。 保存为对话框的打开由用户交互触发(单击正常保存为单词的按钮)

我尝试使用“BeforeSave”事件来处理这个问题但是在关闭“保存为对话框”后执行此操作。 (保存为对话框正好不属于保存过程)

因此没有要显示的源代码。这是一个普遍的问题。

在用户按下“保存为”按钮后,可能有办法启动事件(并打开用户窗体)。

感谢您的帮助!

的问候,

Korbif

2 个答案:

答案 0 :(得分:0)

试试这个,它会在newFileName下保存名为C:\Your\File\Path的文档。

newFileName = InputBox(Prompt:="Save as", _
      Title:="SaveAs", Default:="Syntax:= C:\Your\File\Path")

ActiveDocument.SaveAs ("C:\Your\File\Path" + newFileName)

答案 1 :(得分:0)

我找到了解决方案。

ThisDocument模块中,事件wdApp_DocumentOpen

我插入了代码:

Application.ScreenUpdating = False

这可以防止在显示特定用户表单之前显示“另存为”对话框。

但谢谢你的回答汤姆