Событие Application.MailMergeDataSourceLoad (Word)

Статья
04/07/2023

Происходит при загрузке источника данных для слияния.

Синтаксис

expression. MailMergeDataSourceLoad (Документация)

Выражение Переменная, представляющая объект Application, объявленный с событиями в модуле класса. Сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Документ	Основной документ слияния.

Пример

В этом примере отображается сообщение с именем файла источника данных при запуске загрузки источника данных. В этом примере предполагается, что в общих объявлениях объявлена переменная приложения с именем 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 file name 
 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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.