MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Shell no Word

    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Shell no Word Empty [Resolvido]Shell no Word

    Mensagem  Leonardo Favale em 18/3/2020, 19:05

    Pessoal estou precisando corrigir este código:
    Código:
         Shell ("WINWORD" & " " & """C:\Users\Usuário\Desktop\Projeto Programa\Imóveis\ContratosGerados\" & "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"""), vbMaximizedFocus


    Pois as pastas estão diferentes em outro PC para algo do tipo que não deu certo:

    Código:
    Shell ("WINWORD" & " " &  CurrentProject.Path & "\Imóveis\ContratosGerados")& "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"), vbMaximizedFocus

    Mas ele não está aceitando o código está errado, não sei se falta alguma virgula ou " enfim... sou um pouco leigo no assunto, ta na tentativa acerto e erro..

    Se alguém puder me ajudar ! Agradeço desde já !
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    [Resolvido]Shell no Word Empty Re: [Resolvido]Shell no Word

    Mensagem  DamascenoJr. em 18/3/2020, 23:21

    Veja, uma abertura e dois fechamentos
    Shell ("WINWORD" & " " &  CurrentProject.Path & "\Imóveis\ContratosGerados")& "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"), vbMaximizedFocus

    Estude e adapte a maneira abaixo
    Código:
    Shell("APLICATIVO_WORD" & " """ & CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc""", vbMaximizedFocus)

    Código:
    dim x
    x = Shell("APLICATIVO_WORD" & " """ & CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc""", vbMaximizedFocus)

    Código:
    application.FollowHyperlink CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Shell no Word Empty Re: [Resolvido]Shell no Word

    Mensagem  Leonardo Favale em 24/3/2020, 18:47

    Obrigado era isto mesmo que eu precisava. Abraço !!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    [Resolvido]Shell no Word Empty Re: [Resolvido]Shell no Word

    Mensagem  DamascenoJr. em 24/3/2020, 22:36

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 15/8/2020, 04:59