word 2007 macro
On Mar 23, 2:17*am, "Doug Robbins - Word MVP on news.microsoft.com"
wrote:
The following will add a { filename \p } field to the primary footer of the
first section of the document that is active when it is run:
With ActiveDocument
* * .Fields.Add .Sections(1).Footers(wdHeaderFooterPrimary).Range,
wdFieldEmpty, "filename \p"
End With
It would be better however to create a new template in which you have this
field already inserted and then use that template to create the documents
that you want to have this information in the footer. *(Do not add the field
to the Normal.Dot Template).
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"perkin5" wrote in message
...
I am trying to record a macro to add the filepath to the page footer.
Having saved the page and recorded the macro, I get an error message:
Run-time error 5941. The requested member of the collection does not
exist.
The debugger shows the following code:
Sub Macro1()
'
' Macro1 Macro
'
'
* *Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:= _
* * * *"FILENAME *", PreserveFormatting:=True
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
* *WordBasic.ViewFooterOnly
* *ActiveDocument.AttachedTemplate.BuildingBlockEntr ies("
Blank").Insert _
* * * *Whe=Selection.Range, RichText:=True
* *Selection.Delete Unit:=wdCharacter, Count:=1
* *Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:= _
* * * *"FILENAME *", PreserveFormatting:=True
End Sub
The two lines beginning 'ActiveDocument...' are highlighted.
Can anyone help me to sort this out?
Hi Doug,
Many thanks for this good advice. Code noted but I will use the
template route. Still a bit annoying that Word 2007 doesn't always do
what it says on the tin.
Mike
|