[求助]脚本写在哪里？

lfspecter

WkceNSD6.zip (6.2 KB, 下载次数: 9)

2007-5-11 13:07 上传

点击文件名下载附件
[求助]脚本写在哪里？

文件打开时提示will run the sql 命令，如何实现的？

脚本写在哪里了？

守柔

QUOTE:

以下是引用lfspecter在2007-5-11 13:08:31的发言：

文件打开时提示will run the sql 命令，如何实现的？

脚本写在哪里了？

lfspecter版主：

文件提示will run the sqi命令不是用脚本实现的，出现这样的提示是基于此文档是邮件合并主文档，并且从WORD2003开始，增加了这项安全性提示要求，提示用户WORD将访问指定的数据库并执行SQL命令。

您可以指定该文档对应的数据源，然后进行邮件合并操作。

该文档具有宏，但它不会自动执行，其宏代码置于该文档的THISDOCUMENT类模块代码窗口中，代码如下（ALT+F11进入VB编辑器查看）：

Public Sub DoMailMerge(sFile As String)

    ActiveDocument.MailMerge.OpenDataSource Name:=sFile, _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

lfspecter

多谢周兄解惑