How to add Headers and footers in a Word document using QTP?

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set oDoc = objWord.Documents.Add
set selection = objWord.selection
selection.typetext "Microsoft Word"
'I need to have a header and footer section in this document
oDoc.Saveas("file name")

In the Footer, I need to have the Page number (eg. Page 1 of 4).