Conditional dsplay of header and footer text

Hi,

I would like to display different first page footer text (Word 2003)
depending upon whether or not there is a second (or subsequent) page(s).

Does anyone know how this could be done? I've tried internet searching and
in-program searching with no luck.

Thank you very much,

Penn

Charles
Thu Dec 09 10:29:40 CST 2004

Take a look at http://www.mvps.org/word/FAQs/Numbering/PageNumbering.htm.


--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"John Doe" <jd@hotmail.com> wrote in message
news:OtNU1og3EHA.3908@TK2MSFTNGP12.phx.gbl...
> Hi,
>
> I would like to display different first page footer text (Word 2003)
> depending upon whether or not there is a second (or subsequent) page(s).
>
> Does anyone know how this could be done? I've tried internet searching
> and in-program searching with no luck.
>
> Thank you very much,
>
> Penn
>

Jonathan
Thu Dec 09 10:28:10 CST 2004


"John Doe" <jd@hotmail.com> wrote in message
news:OtNU1og3EHA.3908@TK2MSFTNGP12.phx.gbl...
> Hi,
>
> I would like to display different first page footer text (Word 2003)
> depending upon whether or not there is a second (or subsequent) page(s).
>
> Does anyone know how this could be done? I've tried internet searching
> and in-program searching with no luck.
>
> Thank you very much,
>
> Penn
>

Hi Penn,

You need to use an IF field. In the first page header, include a field like
this

{ IF { NUMPAGES } = 1 "only one page" "extra pages" }

where the { } characters are field braces inserted using Ctrl-F9


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

John
Thu Dec 09 11:45:50 CST 2004

Excellent! Thank you both very much.

Penn

fumei
Thu Dec 23 13:25:10 CST 2004

A alternative:

Selection.HomeKey unit:=wdStory
If Selection.Sections(1).Range.ComputeStatistics(wdStatisticPages) > 1
Then
With Selection.PageSetup
.DifferentFirstPageHeaderFooter = True
End With
End If

This test to see if the first Section has more than 1 page; if it does, it
sets Section PageSetup Different First page = True.

You could also further explicitly make the header different text. it is
important to note that Sections in Words ALWAYS have three headers -
regardless of whether there are Different first page, or Different Odd/Even.
There is NO header for odd pages. There are:

wdHeaderFooterPrimary (index = 1)
wdHeaderFooterFirstPage (index = 2)
wdHeaderFooterEvenPage (index = 3)

So you could do:

Selection.HomeKey unit:=wdStory
If Selection.Sections(1).Range.ComputeStatistics(wdStatisticPages) > 1
Then
With Selection.PageSetup
.DifferentFirstPageHeaderFooter = True
End With
Selection.Sections(1).Headers(1).Range.Text = "all other headersr"
Selection.Sections(1).Headers(2).Range.Text = "firstpage"
End If

This would explicitly insert text into the proper header.