Rodapé no word

Boa tarde
Gostaria de uma ajuda para criar um rodapé no word!
consegui numerar as páginas mas não consigo escrever um "texto ou um campo " como um Rodapé...

/*inicio*/
Create "Word.Application" ch-Word.
ch-Documento = ch-word:documents:add().
ch-word:visible = false.
ch-Word:ScreenUpdating = yes.
ch-Word:WindowState = 1.
ch-Word:Visible = no.
ch-Word:System:Cursor = 0.


for each temp1 where temp1.te1-cod = v-cod no-lock.

if Temp1.te1-titulo <> ? then do:
ch-word:Selection:TypeText(chr(10)).
ch-word:Selection:Font:Bold = yes.
ch-word:Selection:TypeText(string(Temp1.te1-titulo)).
ch-word:Selection:TypeText(chr(10)).
end.
ch-word:Selection:Font:Bold = false.
ch-word:Selection:TypeText(string(Temp1.te1-texto)).
ch-word:Selection:TypeText(chr(10)).
ch-Word:System:Cursor = 1.

end.
/*
nas duas últimas linha que ele acrescenta o numero das paginas....
como posso acrescentar algo do tipo "Contrato : 12345" e ao lado "Pag. 1"??
*/
chWord2 = ch-word:Selection:sections:item(1).
chWord3 = chWord2:Headers:item(1).
chWord3ageNumbers:NumberStyle = 0.
chWord3ageNumbers:HeadingLevelForChapter = 0.
chWord3ageNumbers:IncludeChapterNumber = true.
chWord3ageNumbers:ChapterPageSeparator = 1.
chWord3ageNumbers:RestartNumberingAtSection = true.
chWord3ageNumbers:StartingNumber = 1.
--- chWord3 = chWord2:Footers:ITEM(1).
--- chWord3ageNumbers:ADD(1, true).

/*fim*/

Veja este link

http://www.4each.com.br/viewtopic.php?t=4662

baltazar como foi definido o ChFolha??

Assim

Código:

chFolha = ChLivro:Sheets:item(1).

Por gentileza, poderia informar como definido o ChLivro?

Segue os comandos com os quais você coloca o cursor dentro do rodapé e do cabeçalho.

Com o comando "entraNoRodape" voce posicionará o cursor dentro do rodapé. Daí é só escrever o que precisa. Terminou de escrever o rodapé, executa o comando "saiDoRodape", e voltarás o cursor para o corpo do documento.

Código:

DEF VAR AppWord                     AS COM-HANDLE       NO-UNDO.
CREATE "Word.Application" AppWord.      /*cria uma instância*/



/*-------------------------------------- Entra no Cabeçalho ---------*/
FUNCTION entraNoCabecalho RETURNS LOG ():

    AppWord:activewindow:activepane:VIEW:seekVIEW = 9.

END FUNCTION.



/*-------------------------------------- Sai do Cabeçalho -----------*/
FUNCTION saiDoCabecalho RETURNS LOG ():

    AppWord:activewindow:activepane:VIEW:seekVIEW = 0. 

END FUNCTION.



/*-------------------------------------- Entra no Rodapé ------------*/
FUNCTION entraNoRodape RETURNS LOG ():

    AppWord:ActiveWindow:ActivePane:VIEW:TYPE = 3. 
    AppWord:ActiveWindow:ActivePane:VIEW:SeekVIEW = 10. 

END FUNCTION.




/*-------------------------------------- Sai do Rodapé --------------*/
FUNCTION saiDoRodape RETURNS LOG ():

    AppWord:ActiveWindow:ActivePane:VIEW:SeekVIEW = 0.

END FUNCTION.

AppWord:Documents:ADD().                /*criar um documento*/
AppWord:VISIBLE = NO.                   /*nao mostra o documento enquanto ele está sendo montado*/

entraNoCabecalho().
Appword:SELECTION:TypeText("textoooo").
saiDoCabecalho().
AppWord:visible = yes