Enter and formatting text in header in word document

[ChristineS]

Hi,

I have a document where I want to create a macro that updates title, date and name in the header every week but that keeps the format of the text from the previous week. The format is different in the different rows, fx.

Prognosis week 9 (Size 20)
2012-02-29 (Size 18)
John Doe (Size 10)

So far I have this code but while it keeps the original font and colour, it changes the size of the text to the same in all three rows.

[DocWord.Sections(1).Headers(wdHeaderFooterFirstPag e).Range.Text = "PROGNOSIS V." & VECKONUMMER(Date) & "" & vbLf & (Date) & vbLf & "John Doe"]

I also want to put the date centered in the headers on all the following pages. I have this code but want it centered and with the right format.

[DocWord.Sections(1).Headers(wdHeaderFooterEvenPage s).Range.Text = (Date)]

Can someone help me with this?

Thanks!