excel VBA 在邮件合并期间出现提示时自动选择是

Question

提问by Ashton Sheets

I'd like the system to be as automated for my users as possible. Right now, I have code that runs when the user clicks a button. The code takes data with the intention of applying it to a word document via mail merge.

我希望系统尽可能为我的用户自动化。现在，我有当用户单击按钮时运行的代码。该代码获取数据的目的是通过邮件合并将其应用于 Word 文档。

Everything works as intended except there's always a message that pops up saying

一切都按预期工作，除了总是弹出一条消息说

Opening this document will run the following SQL command:
Select * FROM 'TAGS$'
Data from your database will be placed in the document. Do you want to continue?

打开此文档将运行以下 SQL 命令：
从“标签$”中选择*
数据库中的数据将放置在文档中。你要继续吗？

I need to keep this as simple as possible without risking users selecting "No" because they're confused. How can VBA automatically proceed and accept the data placement, as it would had they selected "Yes"?

我需要使这尽可能简单，而不会让用户因为感到困惑而选择“否”。VBA 如何自动进行并接受数据放置，就像他们选择“是”一样？

I tried just using the following code to block alerts in hopes it would default "Yes" and proceed, but it didn't work.

我尝试只使用以下代码来阻止警报，希望它默认为“是”并继续，但它没有用。

Application.DisplayAlerts = False

This is what I have

这就是我所拥有的

Sub RunMailMerge()

    Application.ScreenUpdating = False

    Dim wdOutputName, wdInputName As String
    wdOutputName = ThisWorkbook.Path & "\nametags - " _
        & Format(Date, "d mmm yyyy")
    wdInputName = ThisWorkbook.Path & "\nametags.docx"

    ' open the mail merge layout file
    Dim wdDoc As Object
    Set wdDoc = GetObject(wdInputName, "Word.document")
    wdDoc.Application.Visible = True

    With wdDoc.MailMerge
         .MainDocumentType = wdFormLetters
         .Destination = wdSendToNewDocument
         .SuppressBlankLines = True
         .Execute Pause:=False
    End With

    'Application.ScreenUpdating = True

    'show and save output file
    wdDoc.Application.Visible = True
    wdDoc.Application.ActiveDocument.SaveAs wdOutputName

    ' cleanup
    wdDoc.Close SaveChanges:=False
    'activedoc.Close
    Set wdDoc = Nothing

End Sub

Answer 1

回答by Tim Williams

Try setting the DisplayAlerts property in Word (if that's where the alert is coming from):

尝试在 Word 中设置 DisplayAlerts 属性（如果警报来自于此）：

Dim tmp as Long

tmp = wdDoc.Application.DisplayAlerts 

wdDoc.Application.DisplayAlerts = wdAlertsNone
'do the action which causes the prompt
wdDoc.Application.DisplayAlerts = tmp

Answer 2

回答by Vladislav Rastrusny

http://support.microsoft.com/kb/825765

Word 2013

词 2013

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options