请教怎么用vb代码实现在word菜单中的"文件另存为"的功能,即:打开存储选择窗口,选择保存位置后自动保存.

Question

如果只是另存为的话，你不一定要调用word里面的，只要通过vb的dialog控件另存就可以了

Answer 1

我是用代码实现打开word一文档,同时显示另存为窗口的

Answer 2

dim wdapp As Word.Application
...
wdapp.ActiveWindow.Application.CommandBars("file").Controls.Item(5).Execute

Answer 3

OR:
wdapp.ActiveWindow.Application.CommandBars("file").Controls.Item("另存为(&A)...").Execute

Answer 4

dialogs(wdDialogFileSaveAs).show
不过需要捕获Cancel
即
on error resume next
dialogs(wdDialogFileSaveAs).show
Cancel 的err.number=4198