Well.
I found a way to do this using built in excel formula's like such. but there still could be an easier way, but I did need t e double \\ in the file path for OLE link in Word.
'Gives the File Path on line E2
=LEFT(CELL("filename"),FIND("[",CELL("filename"),1)-1)
'Gives the FileName on Line F2
=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)
'Combine it together with Substitute
=SUBSTITUTE(E2,"\","\\")&F2
That give me something like C:\\Data\\Folder\\myfile.xlsx.
Bookmarks