[RESOLVIDO] Usuario escolher caminho de Word

Discussão em 'EMS , HCM e Totvs 11' iniciado por Roberto_vzp, Setembro 5, 2011.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Roberto_vzp

    Roberto_vzp Sem Pontuação

    Prezados colegas,
    Estou com o seguinte problema e não consigo descobrir o que é:
    Eu abro um modelo de documento no word com o comando:
    appword:Documents:eek:pen("q:\ems2\_custom\layout\Boleto.doc",False,False,False,"","",False).

    e consigo fazer quase tudo que preciso.

    Quando vou salvar com saveas o documento se eu coloco assim:
    appword:ActiveDocument:SaveAs("c:\work\boleto.doc"). funciona.

    Se coloco assim:
    define variable w-arquivo as character no-undo.
    assign w-arquivo = "c:\work\boleto.doc".
    appword:ActiveDocument:SaveAs(w-arquivo). Não funciona.

    O arquivo boleto.doc é criado normalmente, mas dentro dele fica um texto dizendo que houve erro na criação do arquivo porque ele já está aberto em outro local.
    O que pode estar errado? Como faço para que o usuário possa escolher o nome e o caminho para salvar o arquivo?
    Outra coisa alguem sabe como contar o número de páginas de um arquivo?
    Obrigado.
  2. baltazar

    baltazar Membro Participativo

    Veja o exemplo em anexo para a questão da gravação.

    Para a questão do número de páginas este código deve funcionar. (funciona no Excel por isso deve funcionar no Word)

    Código:
    /*
    -------------------------------
    PÁGINA - &P -> PÁGINA CORRENTE
             &N -> TOTAL DE PÁGINAS
    --------------------------------
    */
    
    ChFolha:PageSetup:CenterFooter = "&6Pag. " + "&6&P/&N". /* &6 - LETRA TAMANHO 6*/

    Arquivos Anexados:

  3. petruzad

    petruzad Membro Participativo

    Veja este exemplo.

    appword:ActiveDocument:SaveAs(SESSION:TEMP-DIRECTORY + "/" + pcArq).
  4. LFBuozi

    LFBuozi Membro Participativo

    Se, no próprio Word ou Excel, você abrir um arquivo e depois abrir outro arquivo com o mesmo nome, mesmo que em caminhos diferentes, ele vai acusar que existe arquivo aberto com o mesmo nome em outro local.
    Assim, a solução que vejo é salvar com outro nome, fazendo por exemplo:
    Código:
    assign w-arquivo = "c:\work\boleto-novo.doc".
  5. Roberto_vzp

    Roberto_vzp Sem Pontuação

    Obrigado a todos pela colaboração. Mas consegui fazer de um outro modo. Este que me foi sugerido sempre dava um erro.

    Quanto ao numero de paginas ainda não consegui fazer. Alguem tem alguma ideia?
    Preciso criar um indice no arquivo arquivo word por isso preciso contar as paginas ou outra solução seria usar a propriedade bookmakers, mas eu tambem não sei usa-la.

    Atcs.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página