MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Word nao abre

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Word nao abre

    Mensagem  maguim em 1/9/2018, 18:44

    Caros amigos quanto tempo não ? rs

    Vamos la estou com probleminha !


    coloquei um código somente pra executar de abrir o word... Codigo simples!


    Código:
    Private Sub GeradorContrato_Click()

    On Error GoTo TrataErro
    Dim oApp As Object

    ' Inicia o MS Word
        Set oApp = CreateObject("Word.Application")
        With oApp
    ' Torna o MS Word visível
            Visible = True
            
            
    TrataErro:
    'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
        If Err.Number = 94 Then
            oApp.Selection.Text = ""
            Resume Next
        End If


    End With

    End Sub

    Porem ele não abre e fica executado no gerenciador de tarefas já aconteceu com alguém ?
    winword.exe fica aberto la NÃO APARECE ERRO ALGUM.


    abraços


    Última edição por maguim em 1/9/2018, 18:50, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: Word nao abre

    Mensagem  Alexandre Neves em 1/9/2018, 18:49

    Boa tarde,
    Estará instanciado? Vá ao gestor de tarefas e cancele e termine a tarefa

    Sobre o código, experimente
    Private Sub GeradorContrato_Click()

    On Error GoTo TrataErro
    Dim oApp As Object

    ' Inicia o MS Word
    Set oApp = CreateObject("Word.Application")
    With oApp
    ' Torna o MS Word visível
    .Visible = True
    End With
    Exit Sub
    TrataErro:
    'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
    If Err.Number = 94 Then
    oApp.Selection.Text = ""
    Resume Next
    End If

    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: Word nao abre

    Mensagem  maguim em 1/9/2018, 18:54

    Poxa deu certo, que magica é essa? HAHAHAHa

    porem ele nao abre a folha pra inserção de dados.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: Word nao abre

    Mensagem  Alexandre Neves em 1/9/2018, 20:34

    Porque não lhe deu instrução para abrir qualquer ficheiro


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: Word nao abre

    Mensagem  maguim em 1/9/2018, 20:57

    poderia me passa o parâmetro por favor!


    a ideia é fazer um gerador de contrato atraves do formulario com os dados passar por indicadores do word entendeu ?


    Eu peguei o exemplo o Avelino, porem estou tentando editar para meu app.



    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: Word nao abre

    Mensagem  Alexandre Neves em 1/9/2018, 22:14

    Procure no fórum, não sei como se chama o ficheiro, mas será do tipo Application.Documents.Open
    Já podia acompanhar muitas dúvidas semelhantes


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: Word nao abre

    Mensagem  maguim em 1/9/2018, 22:28

    tudo bem!

    Eu já consegui por o exemplo do avenilo em pratica, porem ele não abre a aplicação do word só quando click varias vezes no botton.


    ai aparece uma informação no windows "arquivo em uso"


    bookmarkmodelo.dotx esta bloqueado para edição

    voce deseja:

    Abrir uma copia somente leitura
    etc
    etc
    etc


    entendeu ?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: Word nao abre

    Mensagem  Alexandre Neves em 1/9/2018, 22:38

    Tantos exemplos,
    Se estiver só à espera que lhe entreguem tudo pronto, não aprende nem chega a ajudar outros um dia
    Veja esta dúvida recente
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: Word nao abre

    Mensagem  maguim em 3/9/2018, 00:20

    Alexandre, boa noite amigo.

    Na vdd eu ando prosseguindo com os estudos, não fico esperando não, pode apostar.

    Obrigado pela informação do post.

    Na vdd eu consegui fazer rodar o do Avelino, porem ele esta dando problema hiperlink tendencioso. eu pois um código do próprio Avelino, porem não funcionou.


    Código:
    Application.FollowHyperlink strLocal

    você teria algum critério para tirar esse problema de hiperlink de confiabilidade?


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 15/10/2018, 20:51