本文转自：https://docs.microsoft.com/zh-cn/office/vba/api/word.application.filedialog

---

Application.FileDialog 属性 (Word)

返回一个FileDialog对象，该对象代表文件对话框中的单个实例。

语法

expression. FileDialog( _FileDialogType_ )

expression：必需。 代表应用程序对象的变量。

参数

名称	必需/可选	数据类型	说明
FileDialogType	必需	MsoFileDialogType	对话框类型。

示例

本示例显示另存为对话框。

Sub ShowSaveAsDialog() 
 Dim dlgSaveAs As FileDialog 
 Set dlgSaveAs = Application.FileDialog( _ 
     FileDialogType:=msoFileDialogSaveAs) 
 dlgSaveAs.Show 
End Sub

---

本示例显示打开对话框中，并允许用户选择打开多个文件。

Sub ShowFileDialog() 
 Dim dlgOpen As FileDialog 
 Set dlgOpen = Application.FileDialog( _ 
     FileDialogType:=msoFileDialogOpen) 
 With dlgOpen 
 .AllowMultiSelect = True 
 .Show 
 End With 
End Sub

另请参阅

Application 对象