1

所以我创建了一个宏来允许我的用户打开一个文档选择一个 .csv，它会自动合并字母并打开一个新文档。我可以打开 VBA 并运行这个宏，但是，如果我尝试将它作为一个按钮添加到 QAT 中，它会在单击它时给我一个错误。“参数不是可选的”。这是编码，

Sub Merge()
    Dialogs(wdDialogMailMergeOpenDataSource).Show
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    Documents("C:\Users\user\Documents\mytemplate.docm").Close
    SaveChanges:=wdDoNotSaveChanges
    If Err.Number = 4160 Then
        MsgBox "The file specified is not open.", vbCritical Or vbOKOnly, _
        "File Not Open"
    End If
    On Error GoTo 0
End Sub
4

1 回答 1

1

您收到错误Argument not optional是因为您使用保留字Merge作为过程名称。

换个Sub Merge()说法Sub MyMailMerge()

注意：我没有检查其余代码，因为它超出了您的问题范围。然而我注意到一件事。

使用Dialogs时最好捕获任何错误。如果用户按下Cancel按钮怎么办？

Dim dlg As Word.Dialog

Set dlg = Dialogs(wdDialogMailMergeOpenDataSource)

If dlg.Show = 0 Then Exit Sub

'~~> Rest of your code
于 2015-06-04T20:02:43.553 回答