word vba文档另存为PDF，可选择保存路径，可重命名

可以使用以下的VBA代码来实现将Word文档另存为PDF，并且可以选择保存路径和重命名：

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

此代码使用 `Application.GetSaveAsFilename` 方法在打开文件对话框中选择新的保存路径和文件名。选择完路径和文件名之后，将当前文档以PDF格式导出到所选路径并打开导出文件。

如果需要自定义文件名，可以在 `InitialFileName:=ActiveDocument.Name` 参数中将 `ActiveDocument.Name` 改为自定义的文件名。