Rodapé do Word com página e texto

Discussão em 'Progress 4GL' iniciado por lellima100, Junho 10, 2013.

  1. lellima100

    lellima100 Membro Participativo

    Buenas.

    Alguém pode me ajudar a converter esta macro para progress?
    Preciso gerar um documento com rodapé onde conste a página e o número da via:

    Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:= _
    wdAlignPageNumberRight, FirstPage:=True
    Selection.TypeText Text:="1 Via"


    Eu já tentei assim mas dá erro:

    chWord2 = ch-word:Selection:HeaderFooter.
    chWord3 = chword2:pageNumbers:ADD(1, true).
    ch-Word:Selection:TypeText(string(i-cont-cli) + " VIA").
    lellima100, Junho 10, 2013
    #1
  2. baltazar

    baltazar Membro Participativo

    Tente assim

    Código:
    ChFolha:PageSetup:LeftFooter = "&6" + "texto". /* &6 - LETRA TAMANHO 6*/

/*
-------------------------------
PµGINA - &P -> PµGINA CORRENTE
         &N -> TOTAL DE PµGINAS
--------------------------------
*/

ChFolha:PageSetup:CenterFooter = "&6Pag. " + "&6&P/&N".

chFolha:PageSetup:RightFooter = "&6" + "txt". /* &6 - LETRA TAMANHO 6*/
    baltazar, Junho 11, 2013
    #2
  3. lellima100

    lellima100 Membro Participativo

    Funcionou.

    Muito obrigado Baltazar.
    lellima100, Junho 11, 2013
    #3

Compartilhe esta Página