我使用 Word 的邮件功能创建了一组文档,以便轻松更改文档的某些部分。但是,当我将文档移动到不同的文件或不同的计算机时,我遇到了文件位置的问题,无法从中获取数据。
下次移动文档时我该如何避免这个问题?
如果没有解决方案,是否有办法同时为所有文档选择收件人(当存在现有数据文件时)?
答案1
您可以使用数据源的相对路径,
Sub Document_Open ()
Dim PATH, SOURCE As String
PATH = ThisDocument.Path 'determine current directory
SOURCE = PATH & "\Adresses.xls"
ActiveDocument.MailMerge.OpenDataSource Name: = Source
End Sub