Private Sub nev()
Dim oDok As DrawingDocument
Set oDok = ThisApplication.ActiveDocument
Dim oRef As ReferencedOLEFileDescriptor
Set oRef = oDok.ReferencedOLEFileDescriptors.Add("C:\....\Теплообменник диск-кольцо1 - 1.jpg", kOLEDocumentLinkObject)
oRef.Visible = True
oRef.DisplayName = "1"
End Sub