Получить путь к файлу выбранного изображения в макросе Word

Question

У меня есть документ Word, содержащий несколько изображений. Изображения расположены на жестком диске в подпапке, и они связаны с документом Word.

Я хотел бы выбрать изображение и выполнить макрос, который затем откроет окно сообщения и позволит мне узнать полный путь к изображению.

Answer 1

Здесь идет код для вас:

Sub GetFullPath() 

On Error Resume Next 
    Dim fullPath As String 
    fullPath = Selection.ShapeRange(1).LinkFormat.SourceFullName 
    fullPath = Selection.InlineShapes(1).LinkFormat.SourceFullName 
    MsgBox fullPath 

End Sub