você pode usar caminho relativo para uma fonte de dados ,
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