How do I display file name in the toolbar so I can cut/paste it?

[RobinHood]

I'm trying to display the full file name (link) in my WORD 2007 document such
that I can cut and paste it into another Office 2007 document (e.g., Outlook
email message).

 

[Graham Mayor]

The following macro will copy the full name and path of the current document
to the clipboard

Sub CopyFileNameAndPath()
Dim dFname As DataObject
Dim fFname As String
Set dFname = New DataObject
With ActiveDocument
If Len(.Path) = 0 Then .Save
fFname = .FullName
End With
dFname.SetText fFname
dFname.PutInClipboard
End Sub

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>