Word VBA另存为PDF，可选储存位置

可以使用以下代码实现Word VBA另存为PDF并可选储存位置：

Sub SaveAsPDF()
    Dim saveDialog As FileDialog
    Dim fileName As String
    
    '显示文件保存对话框
    Set saveDialog = Application.FileDialog(msoFileDialogSaveAs)
    With saveDialog
        .Title = "保存为PDF"
        .ButtonName = "保存"
        .InitialFileName = ThisDocument.Name
        .InitialView = msoFileDialogViewDetails
        .FilterIndex = 2
        .Filter = "PDF文件(*.pdf)|*.pdf"
        If .Show = -1 Then
            fileName = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    '保存为PDF文件
    ThisDocument.ExportAsFixedFormat OutputFileName:= _
        fileName, ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportAllDocument, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, _
        DocStructureTags:=True, BitmapMissingFonts:=True, _
        UseISO19005_1:=False
End Sub

运行该宏后会弹出文件保存对话框，用户可以选择储存位置和文件名，然后将当前文档保存为PDF格式。