Word VBA文件另存对话框

你可以使用以下代码在Word VBA中显示另存为对话框：

Sub SaveAsDialog()
    Dim dlgSaveAs As Dialog
    
    Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
    dlgSaveAs.Display
End Sub

这将显示Word自带的另存为对话框。用户可以选择文件名、文件类型和保存位置。如果需要，可以使用VBA代码设置默认值和过滤器。

相关问题

Word VBA显示文件另存对话框，并更改文件保存类型为pdf

下面是一个示例代码，可以在Word VBA中显示文件另存对话框，并将文件保存为PDF格式：

Sub SaveAsPDF()
    '显示文件另存为对话框
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    
    With dlgSaveAs
        .Title = "保存为PDF文件"
        .InitialFileName = ActiveDocument.Name
        .FilterIndex = 2 'PDF文件类型的索引号
        .Filter = "PDF文件(*.pdf), *.pdf"
        
        If .Show = -1 Then
            '如果用户选择了保存文件，则保存为PDF格式
            ActiveDocument.ExportAsFixedFormat _
                OutputFileName:=.SelectedItems(1), _
                ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, _
                OptimizeFor:=wdExportOptimizeForPrint, _
                Range:=wdExportAllDocument, _
                From:=1, _
                To:=1, _
                Item:=wdExportDocumentContent, _
                IncludeDocProps:=True, _
                KeepIRM:=True, _
                CreateBookmarks:=wdExportCreateNoBookmarks, _
                DocStructureTags:=True, _
                BitmapMissingFonts:=True, _
                UseISO19005_1:=False
        End If
    End With
End Sub

代码中使用了`FileDialog`对象来显示文件另存为对话框，并使用`ExportAsFixedFormat`方法将文档保存为PDF格式。你可以根据自己的需要进行修改和调整。

Word VBA文件另存

要在 Word VBA 中将文件另存为，请使用以下代码：

Sub SaveAsDoc()
    Dim FilePath As String
    
    '获取文件路径
    FilePath = Application.GetSaveAsFilename(FileFilter:="Word 文档 (*.docx), *.docx")
    
    '如果用户点击取消，则退出子程序
    If FilePath = "False" Then Exit Sub
    
    '保存文件
    ActiveDocument.SaveAs2 FileName:=FilePath, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True
    
End Sub

该代码会弹出一个保存文件对话框，用户可以选择文件路径和名称，并且可以选择保存的文件类型。如果用户点击取消，则该子程序会退出。如果用户选择了保存文件，则该文件将以指定格式保存。