Footer And Header

[jamal464]

Hi

How to set the header tow lines

first line the format will be to the left

Seconde line the format will be center

For the footer i found this code but i want to add line before the page no

Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oFooter As Range
    Dim oRange As Range
    Dim oEntry As AutoTextEntry
    
    Set oWord = New Word.Application
    oWord.Visible = True
    
    Set oDoc = oWord.Documents.Add
    
    Set oFooter = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    Set oEntry = NormalTemplate.AutoTextEntries("Page X of Y")
    
    Set oRange = oEntry.Insert(oFooter)
    oRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
    oDoc.Close False
    oWord.Quit False