Word VBA教程:MailMergeDataSourceLoad事件

加载用于邮件合并的数据源时,该事件发生。

Private Sub object_MailMergeDataSourceLoad(ByVal Doc As Document)

object  在类模块事件中声明的 Application 类型对象。有关使用 Application对象事件的详细信息,请参阅使用 Application对象事件

Doc  邮件合并主文档。

VBA示例

该示例在开始加载数据源时,显示一条包含数据源文件名的消息。该示例假定在一般声明中声明了一个名为 MailMergeApp 的应用程序变量,并将 Word Application对象赋给该变量。


Private Sub MailMergeApp_MailMergeDataSourceLoad(ByVal Doc As Document)
    Dim strDSName As String
    Dim intDSLength As Integer
    Dim intDSStart As Integer
    'Extract from the Name property only the filename
    intDSLength = Len(Doc.MailMerge.DataSource.Name)
    intDSStart = InStrRev(Doc.MailMerge.DataSource.Name, "\")
    intDSStart = intDSLength - intDSStart
    strDSName = Right(Doc.MailMerge.DataSource.Name, intDSStart)
    'Deliver a message to user when data source is loading
    MsgBox "Your data source, " & strDSName & ", is now loading."
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号