[JT[_2_]]

We have a customer that used to use Office 2003 and had a simple way of
inserting the file path in the document footer. (we created a button that was
one of the menu items)
After the upgrade them to Office 2007, there are many more steps to getting
the same information, and we don't seem to be ablet to create the same button.
How can we add a button to his Office 2007 toolbar that will insert the file
path? (The closest thing I found was creating a customer footer with this,
but it overwrites existing footers with other information in them, so this is
not an option.)

Thanks!

Juan

[Graham Mayor]

You can insert a filename field in the footer (but which footer?)
or
You could use a macro to insert the filename and path at the end of the
document e.g.

Sub InsertFileNameAtEnd()
With ActiveDocument
If Len(.Path) = 0 Then .Save
If InStr(1, .Range.Paragraphs.Last.Range.Text, _
".doc") = False Then
.Range.InsertAfter vbCr & .FullName
With .Range.Paragraphs.Last.Range
.Paragraphs.Alignment = _
wdAlignParagraphRight
.Font.name = "Arial"
.Font.Size = 8
End With
Else
.Range.Paragraphs.Last.Range.Text = _
.FullName
End If
End With
End Sub

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


--

Graham Mayor - Word MVP

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


"JT" wrote in message
...
We have a customer that used to use Office 2003 and had a simple way of
inserting the file path in the document footer. (we created a button that
was
one of the menu items)
After the upgrade them to Office 2007, there are many more steps to
getting
the same information, and we don't seem to be ablet to create the same
button.
How can we add a button to his Office 2007 toolbar that will insert the
file
path? (The closest thing I found was creating a customer footer with this,
but it overwrites existing footers with other information in them, so this
is
not an option.)

Thanks!

Juan

[Graham Mayor]

You can insert a filename field in the footer (but which footer?)
or
You could use a macro to insert the filename and path at the end of the
document e.g.

Sub InsertFileNameAtEnd()
With ActiveDocument
If Len(.Path) = 0 Then .Save
If InStr(1, .Range.Paragraphs.Last.Range.Text, _
".doc") = False Then
.Range.InsertAfter vbCr & .FullName
With .Range.Paragraphs.Last.Range
.Paragraphs.Alignment = _
wdAlignParagraphRight
.Font.name = "Arial"
.Font.Size = 8
End With
Else
.Range.Paragraphs.Last.Range.Text = _
.FullName
End If
End With
End Sub

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


--

Graham Mayor - Word MVP

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


"JT" wrote in message
...
We have a customer that used to use Office 2003 and had a simple way of
inserting the file path in the document footer. (we created a button that
was
one of the menu items)
After the upgrade them to Office 2007, there are many more steps to
getting
the same information, and we don't seem to be ablet to create the same
button.
How can we add a button to his Office 2007 toolbar that will insert the
file
path? (The closest thing I found was creating a customer footer with this,
but it overwrites existing footers with other information in them, so this
is
not an option.)

Thanks!

Juan

[JT[_2_]]

Hi Graham,

Thanks for the quick response.
I found another solution using Quickparts and placing it in the Quick Access
Toolbar.

I will weigh the advantages of each and decide.

Thanks for your help.

Juan



"Graham Mayor" wrote:

You can insert a filename field in the footer (but which footer?)
or
You could use a macro to insert the filename and path at the end of the
document e.g.

Sub InsertFileNameAtEnd()
With ActiveDocument
If Len(.Path) = 0 Then .Save
If InStr(1, .Range.Paragraphs.Last.Range.Text, _
".doc") = False Then
.Range.InsertAfter vbCr & .FullName
With .Range.Paragraphs.Last.Range
.Paragraphs.Alignment = _
wdAlignParagraphRight
.Font.name = "Arial"
.Font.Size = 8
End With
Else
.Range.Paragraphs.Last.Range.Text = _
.FullName
End If
End With
End Sub

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


--

Graham Mayor - Word MVP

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


"JT" wrote in message
...
We have a customer that used to use Office 2003 and had a simple way of
inserting the file path in the document footer. (we created a button that
was
one of the menu items)
After the upgrade them to Office 2007, there are many more steps to
getting
the same information, and we don't seem to be ablet to create the same
button.
How can we add a button to his Office 2007 toolbar that will insert the
file
path? (The closest thing I found was creating a customer footer with this,
but it overwrites existing footers with other information in them, so this
is
not an option.)

Thanks!

Juan



.

[JT[_2_]]

Hi Graham,

Thanks for the quick response.
I found another solution using Quickparts and placing it in the Quick Access
Toolbar.

I will weigh the advantages of each and decide.

Thanks for your help.

Juan



"Graham Mayor" wrote:

You can insert a filename field in the footer (but which footer?)
or
You could use a macro to insert the filename and path at the end of the
document e.g.

Sub InsertFileNameAtEnd()
With ActiveDocument
If Len(.Path) = 0 Then .Save
If InStr(1, .Range.Paragraphs.Last.Range.Text, _
".doc") = False Then
.Range.InsertAfter vbCr & .FullName
With .Range.Paragraphs.Last.Range
.Paragraphs.Alignment = _
wdAlignParagraphRight
.Font.name = "Arial"
.Font.Size = 8
End With
Else
.Range.Paragraphs.Last.Range.Text = _
.FullName
End If
End With
End Sub

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


--

Graham Mayor - Word MVP

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


"JT" wrote in message
...
We have a customer that used to use Office 2003 and had a simple way of
inserting the file path in the document footer. (we created a button that
was
one of the menu items)
After the upgrade them to Office 2007, there are many more steps to
getting
the same information, and we don't seem to be ablet to create the same
button.
How can we add a button to his Office 2007 toolbar that will insert the
file
path? (The closest thing I found was creating a customer footer with this,
but it overwrites existing footers with other information in them, so this
is
not an option.)

Thanks!

Juan



.