Is there a way to capture the name of a Word document that I'm working with
while the file is open and I'm in the file? By sending it to the clipboard,
for example?

--
Bob
http://www.kanyak.com

On 12 jan, 10:37, "Opinicus" <gez...@spamcop.net.which.is.not.invalid>
wrote:
> Is there a way to capture the name of a Word document that I'm working with
> while the file is open and I'm in the file? By sending it to the clipboard,
> for example?
>
> --
> Bobhttp://www.kanyak.com

The following macro might do the trick:

' === Begin of macro ===
Sub FileName()
Dim obj As DataObject

Set obj = New DataObject

obj.SetText ActiveDocument.Path & ActiveDocument.Name
obj.PutInClipboard
End Sub
' === End of macro ===

Yves

Capture it for what purpose? In order to best answer your question, we need
to know what you want to do with the name that you have 'captured'.


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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Opinicus wrote:
> Is there a way to capture the name of a Word document that I'm
> working with while the file is open and I'm in the file? By sending
> it to the clipboard, for example?

You can insert a FILENAME field in the document, if that's what you mean.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"Opinicus" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Is there a way to capture the name of a Word document that I'm working
> with while the file is open and I'm in the file? By sending it to the
> clipboard, for example?
>
> --
> Bob
> http://www.kanyak.com
>

"p0" <(E-Mail Removed)> wrote

>> Is there a way to capture the name of a Word document that I'm working
>> with
>> while the file is open and I'm in the file? By sending it to the
>> clipboard,
>> for example?

> The following macro might do the trick:
>
> ' === Begin of macro ===
> Sub FileName()
> Dim obj As DataObject
>
> Set obj = New DataObject
>
> obj.SetText ActiveDocument.Path & ActiveDocument.Name
> obj.PutInClipboard
> End Sub
> ' === End of macro ===

Thanks, Yves. This looks like it should do what I want but it chokes on the
first line (Dim obj) with a "User-defined type not identified" error. What
am I doing wrong?

--
Bob
http://www.kanyak.com