MailMergeDataSource.HeaderSourceType (Word)

Retorna um valor que indica a maneira como a fonte de cabeçalho está sendo fornecida para a operação de mala direta. Somente leitura WdMailMergeDataSource. Os valores de retorno possíveis são wdMergeInfoFromAccessDDE - Do Microsoft Access usando o Intercâmbio Dinâmico de Dados (DDE), wdMergeInfoFromExcelDDE - Do Microsoft Excel usando o DDE, wdMergeInfoFromMSQueryDDE - Do MSQuery usando o DDE, wdMergeInfoFromODBC - De uma conexão de Open Database Connectivity (ODBC), wdMergeInfoFromODSO - De um Office Data Source Object (ODSO), wdMergeInfoFromWord - Do Microsoft Word, wdNoMergeInfo - Não foram fornecidas informações de mala direta.

Dim mmdsTemp As MailMergeDataSource 
 
Set mmdsTemp = ActiveDocument.MailMerge.DataSource 
 
If mmdsTemp.HeaderSourceType = wdMergeInfoFromWord Then 
 Documents.Open FileName:=mmdsTemp.HeaderSourceName 
End If