Public Sub WhoOpen(s$)
    MsgBox s
End Sub

Dim d As Document

Set d = Application.Documents.Open("C:\temp\doc_\doc2.doc")

Application.Run "doc2.Module1.WhoOpen", ThisDocument.FullName
' разные варинты вызова пробовал...
' "doc2.WhoOpen"
' "'doc2.doc!'Module1.WhoOpen"
' "'doc2.doc!'WhoOpen"
' "Project(doc2).Module1.WhoOpen" ' самому смешно
' ... etc

Set d = Nothing

' ******************************************************
' добавление/изменение объекта Variable другого документа
' и вызов из него макроса БЕЗ ПАРАМЕТРОВ по полному имени (включая имя документа)
Private Sub VariablesChange()

Dim sDocForOpen$
Dim s$
Dim d As Document
Dim sDName$

sDocForOpen = ThisDocument.Path + "\doc3.doc"

Set d = Application.Documents.Open(sDocForOpen)

' с методом .Add не получается вызвать макрос по "полному адресу", -
' только с точностью "до модуля" (см.ниже)
'Set d = Application.Documents.Add(ThisDocument.Path + "\doc3.doc")

s = ThisDocument.FullName
On Error Resume Next
    d.Variables.Add "кто_меня_открыл", s
    If Err.Number =  5903  Then
        Err.Clear
        d.Variables("кто_меня_открыл") = s
    End If
On Error GoTo  0 

' для метода .Open
sDName = d.FullName
Application.Run "'" + sDName + "'!Module1.WhoOpenMe"


' для метода .Add вызов работает только "с точностью до модуля" :(
'Application.Run "'" + sDName + "'!Module1.WhoOpenMe" '<-- так не находит, даже если документ сохранить :(
'Application.Run "Module1.WhoOpenMe" '<-- так находит, но нах надо. Коллизии, мать их...

    d.Variables("кто_меня_открыл").Delete

Set d = Nothing

End Sub

' *********************
' в вызывающей программе создаю в этом документе переменную 'кто_меня_открыл' и
' присваиваю ей какое-нибудь значение; далее методом Application.Run вызываю процедуру
' WhoOpenMe; нах такие извраты - х.з.
Sub WhoOpenMe()
    
    MsgBox ThisDocument.Variables("кто_меня_открыл").Value, , _
           "'" + ThisDocument.Name + "'!Module1.WhoOpenMe"
    'MsgBox "бред полнейший ..."
    
End Sub