Sub WhatFolder() ' Paul Beverley - Version 10.02.21 ' Loads the clipboard with the address of folder of this file myPath = ActiveDocument.Path Set myData = New DataObject myData.SetText "" myData.PutInClipboard myData.SetText myPath myData.PutInClipboard End Sub