Guys,
What is the best way to auto insert into a footer the file location for the current file you are working on ?
ie: o:\corporate\burns\oldmill buy out contract
Was thinking the best way would be to create a macro ..
Any thoughts?
Guys,
What is the best way to auto insert into a footer the file location for the current file you are working on ?
ie: o:\corporate\burns\oldmill buy out contract
Was thinking the best way would be to create a macro ..
Any thoughts?
If you mean the field code for the name of the current document, switch the view to footers, then
Insert>Field..> then select FileName and add \p after the FILENAME field code (for full pathname)
The field code (when you do shift/F9 or Alt/F9) should look like this
{ FILENAME \p }
Great thanks, this works but is there anyway this could be updated at point of save ? and incorporated into a macro ?
What do you think (see below)
Sub Footer()
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.Font.Size = 8
NormalTemplate.AutoTextEntries("Filename and path").Insert Where:= _
Selection.Range
Selection.TypeParagraph
Selection.InsertDateTime DateTimeFormat:="MM/dd/yyyy h:mm am/pm", _
InsertAsField:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Last edited by Drogo; 8th November 2006 at 11:45 AM.
Social Networking Bookmarks