MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

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

    Pegar de de qualquer formato

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1570
    Registrado : 23/01/2018

    Pegar de de qualquer formato Empty Pegar de de qualquer formato

    Mensagem  crysostomo 22/5/2020, 02:27

    meu amigos boa noite.
    monte junto com outro  codigo que eu abro por esse link abaixa, mas ele do abre no formato .doc e não docx ...
    como eu faço para ele abrir em diferentes formatos para que não seja necessário instalar runtime,
    Código:
    LWordDoc = "C:\Eclesis\Cartas\carta_de_apresentação.docx"
    If Dir(LWordDoc) = "" Then
        MsgBox "O documento não existe, talves tenha deletado", vbInformation, "Eclesisis"

    Else
    'Create an instance of MS Word
    Set oApp = CreateObject(Class:="Word.Application")
    oApp.Visible = True

    'Open the Document
    oApp.Documents.Open FileName:=LWordDoc
    MsgBox "O documento não existe, talves tenha deletado", vbInformation, "Eclesisis"

    End If


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 429
    Registrado : 25/02/2016

    Pegar de de qualquer formato Empty Re: Pegar de de qualquer formato

    Mensagem  FranklinJSP 26/5/2020, 15:51

    Bom día Crysostomo!

    Tenta assim:

    Código:
    Call Shell("C:\Program Files\Microsoft Office\root\Office16\Winword.exe ""C:\CaminhoDocumento\Arquivo.docx""", 1)

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1570
    Registrado : 23/01/2018

    Pegar de de qualquer formato Empty Re: Pegar de de qualquer formato

    Mensagem  crysostomo 26/5/2020, 21:37

    Boa tarde meu amigo, ai não tem como pois so vai pegar o documento com  a extensão .docx
    mas acho que idependente dos documentos será necessário a implantar o runtime da versão pro acess rodar


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 7/3/2021, 15:01