How to format 2nd Header Format?

[Eric]

Hi
I only want to handle the Header format from page 2. The following is the format which I want

Page
Date 2nd June 200

In that Header, I want the characters 'nd' in superscript format. I can add Page Field and Print the date. How to change the superscript format in Header

I wrote
Set myField = ActiveDocument.Fields.Add(Range:=ActiveDocument.Sections(1).HeaderswdHeaderFooterPrimary).Range, Type:=wdFieldPage
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InsertBefore vbCr & vbCr & "Page "
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InsertAfter vbCr & "Date 2nd June 2004

Thank you.

 

[Cindy M -WordMVP-]

Hi =?Utf-8?B?RXJpYw==?=,

For example:

Dim rng as Word.Range

Set rng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range

'Your other code precedes, here, then
rng.InsertBefore vbCr & vbCr & "Page "
rng.Collapse wdCollapseEnd
rng.Text = vbCr & "Date 2"
rng.Collapse wdCollapseEnd
rng.Text = "nd"
rng.Font.Superscript = True
rng.Collapse wdCollapseEnd
rng.Text = " June 2004"
rng.Font.Superscript = False

I only want to handle the Header format from page 2. The following is the format which I want:

Page 2
Date 2nd June 2004

In that Header, I want the characters 'nd' in superscript format. I can add Page Field and Print the date. How to change the superscript format in Header?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail