Solved: Word.application Footer help

[Mr Doubtfire]

I would like to add a footer with the following format.

Pg 1 of x www.abccc.com (http://www.abccc.com)

for every page.

Please comment.
Thanks.:hi:

[TonyJollans]

When you edit the footer which part of it is giving you a problem?

[Mr Doubtfire]

Could you show me how to add a new footer?
I just do not know how to add.
Thanks.

[TonyJollans]

Just go to View > Header and Footer. You will be positioned by default in the Header - either scroll and click in the Footer, or press the Switch Header/Footer button in the Toolbar (near the right - hover over them to see tooltips).

To get Page Number and/or Number of Pages there are buttons on the toolbar (at the left). The rest of your details you just type.

[Mr Doubtfire]

I am sorry I am NOT clear.
I would like to know how to code under VB6 for adding footer.
Thanks.
*****I have tried to add a macro to reveal the code of adding a footer, but it did work for me.

[TonyJollans]

Your Footer exists. You do not need to add it.

To reference it use something like ActiveDocument.Sections(1).Footers(1)

Add whatever content you wish to the Range just as you would a Range anywhere else in the document.

[MOS MASTER]

Hi, :yes

Something like:
Sub FillFooter()
Dim oDoc As Word.Document
Dim oRange As Word.Range
Set oDoc = Application.ActiveDocument
With oDoc
Set oRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range

NormalTemplate.AutoTextEntries("Page X of Y").Insert Where:=oRange

Set oRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range
oRange.InsertAfter Text:=" www.abccc.com (http://www.abccc.com)"
End With

Set oRange = Nothing
Set oDoc = Nothing
End Sub


HTH, :whistle:

[Mr Doubtfire]

Yes, thank you.
Is it possible you could tell me where to insert the format (Pg 1 of x)?
Thanks.

[MOS MASTER]

Yes, thank you.
Is it possible you could tell me where to insert the format (Pg 1 of x)?
Thanks.

No problem.

Could you be more specific on your question or show me a sample format. :yes

[Mr Doubtfire]

I got it.

Thanks!

You're the MOSst Master!!!!!!!!!!!!:bow:

[MOS MASTER]

I got it.

Thanks!

You're the MOSst Master!!!!!!!!!!!!:bow:

Excellent!!

You're welcome! :beerchug: