MS Word

[Drogo]

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?

[Shambles]

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 }

[Drogo]

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