HeaderSourceName 属性

返回附加到指定的邮件合并主文档的域名源的路径和文件名。String 类型，只读。

示例

如果已将一个域名源附加至活动文档，则本示例显示该文件名。

Dim strName As String

strName = ActiveDocument.MailMerge.DataSource.HeaderSourceName
If strName <> "" Then MsgBox strName

如果附加到活动文档的域名源是 Word 文档，本示例就打开它。

Dim mmdsTemp As MailMergeDataSource

Set mmdsTemp = ActiveDocument.MailMerge.DataSource

If mmdsTemp.HeaderSourceType = wdMergeInfoFromWord Then
    Documents.Open FileName:=mmdsTemp.HeaderSourceName
End If