Word VBA导出对话框

你可以使用以下代码在Word VBA中导出对话框：

Sub ExportDialog()
    Dim dlgSave As FileDialog
    Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
    With dlgSave
        .Title = "Export Dialog"
        .InitialFileName = "Dialog.txt"
        .FilterIndex = 2 'Text Files
        If .Show = -1 Then
            Dim path As String
            path = .SelectedItems(1)
            Dim dialogText As String
            dialogText = ActiveDocument.Range.Text
            Open path For Output As #1
            Print #1, dialogText
            Close #1
        End If
    End With
End Sub

这个代码创建一个文件对话框，让用户选择导出文件的路径和名称。然后，它将当前文档中的文本保存到选择的文件中。你可以根据需要修改代码来更改默认文件名、过滤器选项等。

相关问题

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文件并保存到所选路径。

Word VBA导出对话框，默认保存类型改为pdf

可以使用以下代码来导出对话框，并将默认保存类型更改为PDF：

Sub ExportAsPDF()
    Dim dlgSaveAs As FileDialog
    Dim filePath As String
    
    '创建导出对话框
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    
    '设置默认文件类型为PDF
    dlgSaveAs.FilterIndex = 2
    
    '显示对话框
    If dlgSaveAs.Show = -1 Then
        filePath = dlgSaveAs.SelectedItems(1)
        
        '导出为PDF
        ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=filePath, _
            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
    
    '释放资源
    Set dlgSaveAs = Nothing
End Sub

此代码会创建一个导出对话框，并将默认文件类型设置为PDF。用户可以选择其他文件类型，但PDF将成为默认选项。然后，它将导出当前文档为PDF，并将其保存在用户选择的位置。最后，它释放对话框资源。