MailMerge.DataSource (Word)

Retorna um objeto MailMergeDataSource que faz referência à fonte de dados anexada a um documento principal de mala direta. Somente leitura.

If ActiveDocument.MailMerge.DataSource.Name <> "" Then _ 
 MsgBox ActiveDocument.MailMerge.DataSource.Name