Word VBA导出对话框，默认保存类型改为pdf

可以使用以下代码来导出对话框，并将默认保存类型更改为PDF：

Sub ExportAsPDF()
    Dim dlgSaveAs As FileDialog
    Dim filePath As String
    
    '创建导出对话框
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    
    '设置默认文件类型为PDF
    dlgSaveAs.FilterIndex = 2
    
    '显示对话框
    If dlgSaveAs.Show = -1 Then
        filePath = dlgSaveAs.SelectedItems(1)
        
        '导出为PDF
        ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=filePath, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, _
            IncludeDocProps:=True, _
            KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, _
            DocStructureTags:=True, _
            BitmapMissingFonts:=True, _
            UseISO19005_1:=False
    End If
    
    '释放资源
    Set dlgSaveAs = Nothing
End Sub

此代码会创建一个导出对话框，并将默认文件类型设置为PDF。用户可以选择其他文件类型，但PDF将成为默认选项。然后，它将导出当前文档为PDF，并将其保存在用户选择的位置。最后，它释放对话框资源。