Como adicionar tabela no word

Discussão em 'Progress 4GL' iniciado por joelscampos, Setembro 5, 2013.

  1. joelscampos

    joelscampos Membro Participativo

    Alguém sabe qual o comando para adicionar uma tabela no Word?

    O comando da macro no Word é esse:
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
    5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitContent

    Porém não consegui colocar isso no progress.

    Tentei esse "AppWord:ActiveDocument:Tables:ADD().", mas deu esse erro: "Metodo componente ADD chamado com < 3 parametros".

    Já tentei passar diversas combinações de parametros no ADD(), todos sem sucesso.

    Não vou fazer um documento matriz porque cada documento pode ter nenhuma ou várias tabelas.
  2. jaisonantoniazzi

    jaisonantoniazzi Membro Ativo

    Boa tarde @joelscampos
    fiz este exemplo para abrir o word, inserir uma tabela e atribuir estilo à ela.

    PHP:
    /*
    COM WORD

    adicionar tabela e atribuir estilo

    jaison antoniazzi
    14/01/2014

    */

    define var ch-Word      as component-handle no-undo.
    define var ch-Documento as component-handle no-undo.
    define var ch-Range    as component-handle no-undo.
    define var ch-Table    as component-handle no-undo.

    create 'Word.Application' ch-Word.

    ch-Word:visible = true.

    assign ch-Documento = ch-Wordocuments:Add().
    ch-Range = ch-Documento:Range().
    ch-Table = ch-Documento:Tables:ADD(ch-Range,2,3).
    ch-Table:Style = "Tabela com grade".

    RELEASE object ch-Documento no-error.
    RELEASE OBJECT ch-Range NO-ERROR.
    RELEASE OBJECT ch-Table NO-ERROR.
    RELEASE object ch-Word.
    Veja também este link
    http://www.4each.com.br/resources/inserir-tabela-no-ms-word-e-atribuir-estilo.27/

    No teu código faltava o objeto Range.

    Forte abraço.
    Editado por um moderador: Janeiro 13, 2014
    don.junior curtiu isso.

Compartilhe esta Página