MailMergeDataSource.Name (Word)

Retorna o nome do objeto especificado. Cadeia de caracteressomente leitura.

Dim strName As String
strName = ActiveDocument.MailMerge.DataSource.Name