MailMergeDataSource.HeaderSourceType (Word)

Renvoie une valeur qui indique la façon dont la source d'en-tête est fournie pour l'opération de publipostage. Les valeurs de retour possibles sont wdMergeInfoFromAccessDDE - Depuis Microsoft Access, avec l'échange dynamique de données ou DDE (Dynamic Data Exchange), wdMergeInfoFromExcelDDE - Depuis Microsoft Excel, avec DDE, wdMergeInfoFromMSQueryDDE - Depuis MSQuery, avec l'échange dynamique de données ou DDE (Dynamic Data Exchange), wdMergeInfoFromODBC - Depuis une connexion ODBC (Open Database Connectivity), wdMergeInfoFromODSO - Depuis un objet ODSO (Office Data Source Object), wdMergeInfoFromWord - Depuis Microsoft Word, wdNoMergeInfo - Aucune information de fusion fournie.

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