[分享]Word中通用对话框应用之一：另存为

守柔

前阵子有网友问能否更改另存为对话框中文件类型的排列次序问题，当然直接用代码另存为更方便http://club.excelhome.net/viewthread.php?tid=55752&replyID=253666&skin=1

今天完成了一个此类问题的解决方案（WORD VBA毕竟与EXCEL有不同，利用通用对话框解决，（Microsoft Common Dialog Control,Version 6) (WIN 2k+Office XP)

与大家一同探讨一下通用对话框在WORD中的应用问题，此对话框还可应用于：打开文件对话框、颜色对话框、字体对话框、打印机对话框和帮助对话框共6个对话框设置。

请在打开文档后按下另存为命令或者F12

iJ4J4iYd.rar (7.72 KB, 下载次数: 58)

2004-8-18 05:33 上传

点击文件名下载附件
[分享]Word中通用对话框应用之一：另存为

[此贴子已经被作者于2004-8-18 5:33:04编辑过]

守柔

以下为代码:

Private Sub UserForm_Initialize() On Error GoTo ErrHandle'如果发生错误转至指定行标签处代码

'预置文件夹路径为WORD选项中的文件位置 CommonDialog1.InitDir = Application.Options.DefaultFilePath(wdDocumentsPath)

'设置文件类型过滤器 CommonDialog1.Filter = "所有Word文件(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|文档模板(*.dot)|*.dot|RTF 文件(*.RTF)|*.RTF"

'指定文件类型项目(选定,或默认项) CommonDialog1.FilterIndex = 1

'显示通用对话框之另存为对话框 CommonDialog1.ShowSave

'根据用户设置保存文件 ActiveDocument.saveas CommonDialog1.FileName Exit Sub

'启用错误处理 ErrHandle: Unload (Me) End Sub

'-----------------------------------------------------

Sub FileSaveAs()'(修改WORD命令将其运行该宏命令) On Error Resume Next Load (UserForm1)'加载窗体 End Sub