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

以下是一个Word VBA的示例代码，可以将当前Word文档另存为PDF，并允许用户选择储存位置：

Sub SaveAsPDF()
    Dim fileSaveName As Variant
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=ActiveDocument.Name, _
        FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Save As PDF")
    If fileSaveName <> False Then
        ActiveDocument.ExportAsFixedFormat OutputFileName:=fileSaveName, _
            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
End Sub

当运行此宏时，会打开一个文件保存对话框，允许用户选择PDF的储存位置和文件名。如果用户取消了保存，则不会创建PDF文件。如果用户选择了保存，Word会将当前文档另存为PDF格式，并将其储存在所选位置。