MS Word Footer Macro Different Front page

[jm7sa]

Hello,

I am trying to write a simple macro for MS Word (I'm using 2007 but would like it to work for 2003 too ideally)

The macro should:

1. insert a website address and company details into the footer of the first page of a document and then
2. insert a logo into the footer of all subsequent pages.

I'm a bit of a newbie and I've tried to record a macro to do this but it puts everything into the first footer.

I have searched through these forums and come up with a macro that lets me place text into the first page only - but I can't then add the alternative footer for subsequent pages.

Here's my macro (apologies in advance....)

Sub footer()
'
' footer Macro
'
'

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
WordBasic.ViewFooterOnly
Selection.Font.Size = 8
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.TypeText Text:= _
"MY WEBSITE ADDRESS AND COMPANY DETAILS"
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
WordBasic.ViewFooterOnly
Selection.InlineShapes.AddPicture FileName:= _
"C:\images\mylogo.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End If

End Sub

 

[macropod]

Hi jm7sa,

Is there a reason you can't use a Word template with the format you need? That would be a very simple solution to implement - and no vba would be required.

Cheers

[MS MVP - Word]

 

[jm7sa]

Thanks for the help - I managed to come up with a suitable solution

 

[jm7sa]

If anyone wants to see the macro just drop me a line

MossFace Ltd

http://www.mossface.com

 

[fumei]

It may be better if you posted the code here. I am sure there would be people who would like to see it.

faq219-2884

Gerry
My paintings and sculpture