Word VBA文件另存

要在 Word VBA 中将文件另存为，请使用以下代码：

Sub SaveAsDoc()
    Dim FilePath As String
    
    '获取文件路径
    FilePath = Application.GetSaveAsFilename(FileFilter:="Word 文档 (*.docx), *.docx")
    
    '如果用户点击取消，则退出子程序
    If FilePath = "False" Then Exit Sub
    
    '保存文件
    ActiveDocument.SaveAs2 FileName:=FilePath, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True
    
End Sub

该代码会弹出一个保存文件对话框，用户可以选择文件路径和名称，并且可以选择保存的文件类型。如果用户点击取消，则该子程序会退出。如果用户选择了保存文件，则该文件将以指定格式保存。

相关问题

Word VBA文件另存对话框

你可以使用以下代码在Word VBA中显示另存为对话框：

Sub SaveAsDialog()
    Dim dlgSaveAs As Dialog
    
    Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
    dlgSaveAs.Display
End Sub

这将显示Word自带的另存为对话框。用户可以选择文件名、文件类型和保存位置。如果需要，可以使用VBA代码设置默认值和过滤器。

word vba文档另存为PDF

你可以使用以下VBA代码将Word文档另存为PDF：

Sub SaveAsPDF()
    ' 定义变量
    Dim filePath As String
    Dim fileName As String
    
    ' 获取文件路径和文件名
    filePath = "C:\Users\UserName\Documents\"
    fileName = ActiveDocument.Name
    fileName = Left(fileName, InStrRev(fileName, ".") - 1) & ".pdf"
    
    ' 另存为PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        filePath & fileName, ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

在代码中，你需要替换 `filePath` 变量为你想要保存PDF的文件夹路径，然后运行 `SaveAsPDF` 子过程即可将当前Word文档另存为PDF。