Sub WhatFolder()
' Paul Beverley - Version 01.09.23
' Loads the clipboard with the address of folder of this file

myPath = ActiveDocument.Path
Selection.InsertAfter Text:=myPath
Selection.Range.Copy
WordBasic.EditUndo
End Sub