A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

inserting file's location in footer



 
 
Thread Tools Display Modes
  #1  
Old June 1st, 2010, 07:34 PM posted to microsoft.public.word.docmanagement
asf66
external usenet poster
 
Posts: 21
Default inserting file's location in footer


I often get word docs with the file's address inserted in on the bottom of
the page such as the following example:
C:\Documents and Settings\Lenovo User\My Documents\doc name

How do I insert a file's location in the footer of a document?

Thanks-
asf66
  #2  
Old June 1st, 2010, 08:08 PM posted to microsoft.public.word.docmanagement
marysully
external usenet poster
 
Posts: 95
Default inserting file's location in footer

In Office 2003: Click View-Header and Footer. The Header and Footer menu
should appear along with the Header box. Click on the icon "Switch between
Header and Footer" (ninth icon) and the Footer box will appear for you to
type your text. Close box when done. When editing you can simply click on the
footer text and the box will open.

"asf66" wrote:


I often get word docs with the file's address inserted in on the bottom of
the page such as the following example:
C:\Documents and Settings\Lenovo User\My Documents\doc name

How do I insert a file's location in the footer of a document?

Thanks-
asf66

  #3  
Old June 1st, 2010, 08:34 PM posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill
external usenet poster
 
Posts: 31,786
Default inserting file's location in footer

See "Insert filename and path building block in Word 2007" at
http://office.microsoft.com/en-us/te...002951033.aspx

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

"asf66" wrote in message
...

I often get word docs with the file's address inserted in on the bottom of
the page such as the following example:
C:\Documents and Settings\Lenovo User\My Documents\doc name

How do I insert a file's location in the footer of a document?

Thanks-
asf66


  #4  
Old June 2nd, 2010, 05:57 AM posted to microsoft.public.word.docmanagement
Graham Mayor
external usenet poster
 
Posts: 18,297
Default inserting file's location in footer

With a document that contains several sections, there can be several
different footers. You would have to choose which footer(s) you wanted to
insert the field into.

My preferred method would be to use a macro to insert and update the
filename field in the footer. The following macro will insert the filename
and path in each footer of each section of the document after any existing
footer content. It will only insert the field once, and just updates the
field if already present.

Sub InsertFilenameInFooter()
Dim oSection As Section
Dim ofooter As HeaderFooter
Dim oRng As Range
Dim oFld As Field
ActiveDocument.Save
For Each oSection In ActiveDocument.Sections
For Each ofooter In oSection.Footers
Set oRng = ofooter.Range
With oRng
For Each oFld In oRng.Fields
If oFld.Type = wdFieldFileName Then
oFld.Update
Exit Sub
End If
Next oFld
If Len(oRng) 1 Then
.InsertAfter vbCr
End If
.Start = ofooter.Range.End
.End = ofooter.Range.End
.Fields.Add oRng, wdFieldFileName, "\p", False
.ParagraphFormat.Alignment = wdAlignParagraphRight
.Font.Size = 8
.Fields.Update
End With
Next ofooter
Next oSection
ActiveWindow.View.ShowFieldCodes = False
End Sub

Alternatively if you want to insert the filename and path at the end of the
document, the following macro will do that

Sub InsertFilenameAtEnd()
Dim oRng As Range
Dim oFld As Field
ActiveDocument.Save
Set oRng = ActiveDocument.Paragraphs.Last.Range
With oRng
For Each oFld In oRng.Fields
If oFld.Type = wdFieldFileName Then
oFld.Update
Exit Sub
End If
Next oFld
If Len(oRng) 1 Then
.InsertAfter vbCr
End If
.Start = ActiveDocument.Paragraphs.Last.Range.Start
.End = ActiveDocument.Range.End
.Fields.Add oRng, wdFieldFileName, "\p", False
.ParagraphFormat.Alignment = wdAlignParagraphRight
.Font.Size = 8
.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
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



"asf66" wrote in message
...

I often get word docs with the file's address inserted in on the bottom of
the page such as the following example:
C:\Documents and Settings\Lenovo User\My Documents\doc name

How do I insert a file's location in the footer of a document?

Thanks-
asf66



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:58 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.