Word转PDF的VBA代码

在Microsoft Office VBA（Visual Basic for Applications）中，你可以编写宏来将Word文档转换成PDF格式。以下是一个基本的示例，它使用了Office对象模型中的`ActiveDocument.SaveAs`方法，并指定了PDF作为保存文件的格式：

Sub ConvertToPDF()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim pdfPath As String

    ' 创建Word应用程序和当前活动文档对象
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.ActiveDocument
    
    ' 设置PDF路径（这里假设是当前工作目录下）
    pdfPath = ThisWorkbook.Path & "\output.pdf"

    ' 将Word文档保存为PDF
    With wdDoc
        .SaveAs Filename:=pdfPath, FileFormat:=wdFormatPDF, Password:="" ' 如果有需要，设置密码
    End With

    ' 关闭Word应用并释放资源
    wdDoc.Close False
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

要运行这个宏，你需要先打开一个Word文档，在开发者选项卡里启用宏，然后运行`ConvertToPDF`宏。记得替换`pdfPath`变量以指定你想要保存PDF的位置。