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

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