File Path

[PGB]

In Word 2003 or older, I could see the full or absolute path of the file that
I'm working (It was under Web tool bar I think). I'm not able to find the
same in Word 2007. It was helpful to copy paste that link and send it to the
team.

So...where can I see the complete file path in Word 2007?

 

[Jay Freedman]

In Word 2003 or older, I could see the full or absolute path of the file that
I'm working (It was under Web tool bar I think). I'm not able to find the
same in Word 2007. It was helpful to copy paste that link and send it to the
team.

So...where can I see the complete file path in Word 2007?

You can add the same path box to the Quick Access Toolbar in Word
2007. Right-click the toolbar and choose Customize. Set the category
to All Commands, find and click on the item named Document Location,
and click the Add button.

 

[Stefan Blom]

Click the Office button, and then click Word Options. In the Customize
category, locate the Document Location button and add it to the Quick Access
Toolbar.

 

[Graham Mayor]

In a similar vein, you can add the path to the Word title bar with macros as
follows and add the last of the macros to a toolbar button or keyboard
shortcut to copy the filename and path to the clipboard and thereby save
valuable space on the QAT (Quick Access Toolbar) -
http://www.gmayor.com/installing_macro.htm The first three macros

Sub FileSaveAs()
On Error Resume Next
Dialogs(wdDialogFileSaveAs).Show
ActiveWindow.Caption = ActiveDocument.FullName
End Sub

Sub FileSave()
On Error Resume Next
ActiveDocument.Save
ActiveWindow.Caption = ActiveDocument.FullName
End Sub

and

Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
With ActiveWindow.View
.Type = wdPrintView
.TableGridlines = True
End With
ActiveWindow.ActivePane.View.ShowAll = False
End Sub

You can copy the filename and path to the clipboard with another macro

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


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


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