Рассылка в MS Office word

Question

Я создал набор документов с помощью функции рассылки word для легкого изменения некоторых частей документов. Но я столкнулся с проблемой местоположения файла, из которого я получаю данные, когда перемещаю документы в другой файл или на другой компьютер.

Что я могу сделать, чтобы избежать этой проблемы при переносе документов в следующий раз?

Если решения не существует, есть ли способ выбрать получателей одновременно для всех документов (при наличии файла данных)?

Answer 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