Can you set a filepath footer as a default in Word?

[Guest]

The school I work in wants to be able to track files from printed copies and
would like all teachers and students to have a footer showing hte filename
and path. To make it easier and time efficient, is there a way to set this
up to happen automatically in Word 2003?

 

[Charles Kenyon]

You _can_ put such a footer in normal.dot but should not. It would interfere
with labels and envelopes, as well as other documents.

You can create a custom template that has the filename path in the footer.
Note, though, that this doesn't automatically update. Take a look at
http://gregmaxey.mvps.org/File_Name_And_Path.htm.

Hope this helps,
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide


--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

 

[gils usenet acct]

The following code stamps file name as a footer.
HTH
Gil

Sub stamper ()
'
' stamper macro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or
ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 8
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=
_
"FILENAME ", PreserveFormatting:=True
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
End Sub