Mediante V.B 6.0 introducir en el encabezado de un Word texto

[iaras66]

HOLA!!! Alguien podría ayudarme para introducir un texto en un documento Word en el encabezado de la derecha y en el de la izquierda???
Tengo parte del código hecho pero me va mal...


Tengo el siguiente codigo implementado:

Private Sub Form_Load()
Dim Documento As New Word.Application
With Documento
'abre un documento
.Application.Documents.Open App.Path & "C:\Proyecto\ejemplo.doc"


'introduccion de texto
Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True


.Application.Selection.MoveRight Unit:=wdCharacter, Count:=19
.Application.Selection.MoveUp Unit:=wdLine, Count:=1
.Application.Selection.TypeText "Ejemplo de prueba2"
'intro

'intro
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph

'introduccion de texto
Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberLeft, FirstPage:=True
.Application.Selection.MoveLeft Unit:=wdCharacter, Count:=39
.Application.Selection.MoveUp Unit:=wdLine, Count:=1
.Application.Selection.TypeText "Ejemplo de prueba"


'intro
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph

'mostramos documento
.Application.Visible = True
End With
Set Documento = Nothing
End Sub

También necesitaria para el pie del documento a la derecha y a la izquierda.
GRACIAS!!!