Word VBA导出为PDF，可选储存位置

以下是一个Word VBA代码示例，可以将当前打开的Word文档导出为PDF，并让用户选择存储位置：

Sub ExportPDF()
    Dim filePath As Variant
    
    ' 获取用户选择的存储位置
    filePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
    
    ' 如果用户选择了存储位置
    If filePath <> False Then
        ' 导出为PDF
        ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            filePath, ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
            IncludeDocProps:=False, KeepIRM:=True, CreateBookmarks:= _
            wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
    End If
End Sub

该代码会弹出一个对话框，让用户选择存储位置和文件名。如果用户选择了存储位置，则会将当前打开的Word文档导出为PDF并保存到用户指定的位置。