ActiveDocument / headerfooter styles - word

Hej

har fundet følgende kode til at ændre i mit word-doc.

<script language="VBScript">

writetext = "Hovedoplysninger"
ActiveDocument.Sections(1).Headers(1).Range.Text = writetext

ActiveDocument.Sections(1).Headers(1).PageNumbers.ShowFirstPageNumber = True
 
</script>

Dette indsætter tekst i toppen og sidetal i bunde af doc.

Hvordan kan jeg ændre skrifttype, alignment, størrelse....

kan ikke finde ud af det.... hjælp

har fundet noget her men det gælder vist kun på shapes.

With ActiveDocument.Shapes(1).TextEffect
    .FontName = "Courier New"
    .FontBold = True
    .FontItalic = True
End With