For Each olelink In ThisDoc.Document.ReferencedOLEFileDescriptors ' MsgBox (olelink.DisplayName) olelink.delete Next
>>やまらさん