File Path

  • Thread starter Thread starter PGB
  • Start date Start date
P

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?
 
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?
Click to expand...

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.
 
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.
 
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

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top