Word VBA导出对话框，创建pdf文档

可以通过以下步骤在Word VBA中导出对话框并创建PDF文档：

1. 首先，需要添加对话框控件以允许用户选择要导出的文件名和文件路径。可以使用“文件对话框”控件。打开VBA编辑器并在“工具”菜单中选择“引用”。选择“Microsoft Office XX.0 Object Library”，其中XX是您的Office版本号。

2. 在代码中添加以下行以显示文件对话框并获取用户选择的文件名和路径：

Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
With dlgSaveAs
    .Title = "Save PDF As"
    .InitialFileName = "*.pdf"
    .ButtonName = "Export"
    If .Show = -1 Then
        strPath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

3. 接下来，需要使用ExportAsFixedFormat方法将文档导出为PDF文件。添加以下行：

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
    strPath, 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

4. 最后，将完整的代码组合在一起以创建PDF文件：

Sub ExportToPDF()
    Dim dlgSaveAs As FileDialog
    Dim strPath As String
    
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    With dlgSaveAs
        .Title = "Save PDF As"
        .InitialFileName = "*.pdf"
        .ButtonName = "Export"
        If .Show = -1 Then
            strPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        strPath, 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

现在，运行该宏将显示文件对话框，用户可以选择要导出的文件名和路径。然后，文档将导出为PDF文件并保存到所选路径。