如何打开文件对话框而不是在 MS Word 的 Marco 中指向文件

Question

这里是Word中可以生成条码的Marco，但是我录制Marco的时候选择了文件(t1.csv)，怎么让用户选择文件呢？我已经尝试了一些 vb 有关打开文件对话框的代码，但对我不起作用

Sub To_Bar_Code()
'
' To_Bar_Code Macro
'
'
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\jiqi9\Desktop\BC\BarCode\t1.csv", ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:="", SQLStatement:="", SQLStatement1:="", SubType:= _
        wdMergeSubTypeOther
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    Windows("LabelFinal").Activate
End Sub

Answer 1

例如：

Sub To_Bar_Code()
Dim MMSrc As String
Application.DisplayAlerts = wdAlertsNone
With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
  .Title = "Select the mailmerge source file"
  .Filters.Add "CSV Files", "*.csv"
  .AllowMultiSelect = False
  If .Show = -1 Then
    MMSrc = .SelectedItems(1)
  Else
    MsgBox "No source file selected. Exiting", vbExclamation
    Exit Sub
  End If
End With
With ActiveDocument.MailMerge
  .MainDocumentType = wdFormLetters
  .OpenDataSource Name:=MMSrc, ConfirmConversions:=False, ReadOnly:=True, _
    LinkToSource:=False, AddToRecentFiles:=False, Revert:=False, _
    Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", _
    SQLStatement1:="", SubType:=wdMergeSubTypeOther
  .Destination = wdSendToNewDocument
  .SuppressBlankLines = True
  With .DataSource
    .FirstRecord = wdDefaultFirstRecord
    .LastRecord = wdDefaultLastRecord
  End With
  .Execute Pause:=False
End With
Application.DisplayAlerts = wdAlertsAll
Windows("LabelFinal").Activate
End Sub

如何打开文件对话框而不是在 MS Word 的 Marco 中指向文件

How to open file dialog rather than point a file in Marco of MS Word

vba

ms-word

mailmerge