使用 MS Office Word 邮寄

使用 MS Office Word 邮寄

我使用 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

相关内容