La solution la plus simple consiste à mettre un signet directement dans l’entête ou le pied, il sera alors possible d’insérer le texte par la commande WBOOKMARK.
On peut également utiliser la propriété d’affichage SeekView avec la constante WdSeekCurrentPageHeader pour se positionner dans l’entête ou WdSeekCurrentPageFooter pour aller dans le pied puis insérer directement le texte par WTYPETEXT ou WCOPY.
Exemple :
PGM
LNCOPEN
LNCCMD CMD(WORDOPEN)
LNCCMD CMD(WOPENFILE) +
PARM1('%LNCDIR%\SAMPLES\MODELE_STYLE.DOC')
LNCCMD CMD(WSETPROP) +
PARM1(activewindow.activepane.view.seekview+
) PARM2(wdseekcurrentpageheader)
LNCCMD CMD(WTYPETEXT) PARM1('CECI EST UNE ENTETE DE PAGE')
LNCCMD CMD(WSETPROP) +
PARM1(ACTIVEWINDOW.ACTIVEPANE.VIEW.SEEKVIEW+
) PARM2(WDSEEKCURRENTPAGEFOOTER)
LNCCMD CMD(WTYPETEXT) PARM1('CECI EST UN PIED DE PAGE')
LNCCMD CMD(WORDSHOW)
LNCCLOSE
ENDPGM
Autre Exemple :
PGM
LNCOPEN
LNCCMD CMD(WORDOPEN)
LNCCMD CMD(WOPENFILE) +
PARM1('%LNCDIR%\SAMPLES\MODELE_STYLE.DOC')
LNCCMD CMD(WBOOKMARK) PARM1(entetePAGE) PARM2('Ceci est +
une entête de page')
LNCCMD CMD(WBOOKMARK) PARM1(piedpage) PARM2('Ceci +
est un pied de page')
LNCCMD CMD(WORDSHOW)
LNCCLOSE
ENDPGM