[已解决]请大家帮我写个VBA代码调出word文档中的另存为对话框

yjwdjfqb

请大家帮我写个VBA代码调出word文档中的另存为对话框，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-12 09:49

1. Sub word另存为()
   
2.     Dim wordApp As Object
   
3.     Set wordApp = CreateObject("word.application")
   
4.     wordApp.Visible = True
   
5.     With wordApp
   
6.         .Documents.Add
   
7.         .Dialogs(84).Show
   
8.     End With
   
9. 
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

调用

1. diaglogs(wdDialogFileSaveAs).show

复制代码

就成了。

yjwdjfqb

hwc2ycy 发表于 2013-4-12 09:45
调用就成了。

老师，如果是这个路径，怎么写呢

C:\Documents and Settings\Administrator\桌面\资料

hwc2ycy

1. Sub word另存为()
   
2.     Dim wordApp As Object
   
3.     Set wordApp = CreateObject("word.application")
   
4.     wordApp.Visible = True
   
5.     With wordApp
   
6.         .Documents.Add
   
7.         .Dialogs(84).Show
   
8.     End With
   
9. 
   
10. End Sub
    

复制代码

hwc2ycy

可以直接把完全的文件名做为createobject函数的参数来调用。

hwc2ycy

1. sub word另存为2()
   
2.         dim wordApp as object
   
3.         dim filename$
   
4.         filename="c:\【图中201301班】班规.doc"
   
5.         set wordapp=getobject(filename)
   
6.         with wordapp
   
7.                 .windows(1).visible=true
   
8.                 .application.dialogs(84).show
   
9.         end with
   
10. end sub

复制代码

hwc2ycy

用createobject的方法貌似方便些。

yjwdjfqb

hwc2ycy 发表于 2013-4-12 09:49

老师，这个路径还是不行，可以重新给我写下代码吗，谢谢！！！

hwc2ycy

你先说你的要求，路径你得改成自己的的。
你原封不动的套用我的代码肯定不行的啦。

你是在EXCEL中要打开WORD不？

yjwdjfqb

hwc2ycy 发表于 2013-4-12 13:59
你先说你的要求，路径你得改成自己的的。
你原封不动的套用我的代码肯定不行的啦。

谢谢老师，可以了。