Prev: Extra word prints that does not show when viewing the document
Next: Word 97 file won't open.
From: Tony Harrison on 31 May 2010 21:59
Hi,
I've tried to find the solution to this, but to no avail.

In 2003 we modified the normal.dot so that every new document had the
filename and path in the footer.

In 2007 I have modified the normal.dotm and if I click the Office Button,
New, my templates, Normal then it works fine, but what I want is when the
user just opens Word that the footer already contains the footer.

I've got to roll this to 150 users so didn't want to modify each machine,
but can make changes in Group Policy or via the login script (to copy files
into locations, etc).

Any help is gratefully received
From: Graham Mayor on 1 Jun 2010 00:28
It is not a good idea to have a footer in the normal template. For a start
it prevents you from creating labels. Furthermore the filename field does
not update automatically and the document will not have a filename until the
document is saved. It would be better either to create a document template
containing the footer, which you can distribute via a shared workgroup
folder, or copy to the user's User Templates folder.
OR
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
End Sub

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

You could supply this macro in an add-in with a modified ribbon containing a
button command to run it - http://gregmaxey.mvps.org/Customize_Ribbon.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

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


"Tony Harrison" <TonyHarrison(a)discussions.microsoft.com> wrote in message
news:0866837F-7A65-44B7-B2F5-C064677B78CC(a)microsoft.com...
> Hi,
> I've tried to find the solution to this, but to no avail.
>
> In 2003 we modified the normal.dot so that every new document had the
> filename and path in the footer.
>
> In 2007 I have modified the normal.dotm and if I click the Office Button,
> New, my templates, Normal then it works fine, but what I want is when the
> user just opens Word that the footer already contains the footer.
>
> I've got to roll this to 150 users so didn't want to modify each machine,
> but can make changes in Group Policy or via the login script (to copy
> files
> into locations, etc).
>
> Any help is gratefully received


 | 
Pages: 1
Prev: Extra word prints that does not show when viewing the document
Next: Word 97 file won't open.