MailMerge.DataSource (Word)

Devuelve un objeto MailMergeDataSource que hace referencia al origen de datos adjunto a un documento principal de combinación de correspondencia.

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