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

    Bloco de Notas copiar o texto para área de transferencia

    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 01/04/2016

    Bloco de Notas copiar o texto para área de transferencia Empty Bloco de Notas copiar o texto para área de transferencia

    Mensagem  raijeweb em Qui 17 Out 2019, 12:27

    Olá a todos
    quem poderia me ajudar
    no Exemplo em anexo que foi postado no tópico original postado pelo Amigo =>Nois
    Como eu Faria para selecionar deixar selecionado e colocar na área de transferencia o texto: Olá, Bons estudos com o MaximoAccess que está dentro do documento criado?
    Fico no Aguardo dos Feras
    Anexos
    Bloco de Notas copiar o texto para área de transferencia AttachmentBlocoNotas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (16 Kb) Baixado 5 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    Bloco de Notas copiar o texto para área de transferencia Empty Re: Bloco de Notas copiar o texto para área de transferencia

    Mensagem  zcarloslopes em Qui 17 Out 2019, 16:29

    Boa tarde,

    Veja se é isto que pretende!
    Anexos
    Bloco de Notas copiar o texto para área de transferencia AttachmentBlocoNotas_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 12 vez(es)
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 01/04/2016

    Bloco de Notas copiar o texto para área de transferencia Empty Re: Bloco de Notas copiar o texto para área de transferencia

    Mensagem  raijeweb em Sex 18 Out 2019, 12:28

    Olá Carlos é quase isso, só faltou mostrar o documento aberto com o texto todo selecionado, poderia fazer isso, comente a linha de selecionamento antes de copiar e colocar na área de transferência
    desde já lhe agradeço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    Bloco de Notas copiar o texto para área de transferencia Empty Re: Bloco de Notas copiar o texto para área de transferencia

    Mensagem  zcarloslopes em Sex 18 Out 2019, 14:24

    Boa tarde,

    Para abrir o ficheiro txt, basta acrescentar um alinha ao código:
    Código:
       Dim MyData As String, strData() As String
        Dim strFicheiro As String

        strFicheiro = Application.CurrentProject.Path & "\exportacao.txt"

        Open strFicheiro For Binary As #1
        MyData = Space$(LOF(1))
        Get #1, , MyData
        Close #1
        strData() = Split(MyData, vbCrLf)
        
        SetClipboard (MyData)
        MsgBox "Copiou para a área de Transferência o seguinte texto: " & MyData & vbCrLf & "Faça Colar onde Pretender!", vbExclamation, "Texto Copiado!"
        
        Application.FollowHyperlink strFicheiro  '<----- Adicionei esta linha

    Para seleccionar o texto, não sei como fazer....

    Pode ser que mais alguém ajude..
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 01/04/2016

    Bloco de Notas copiar o texto para área de transferencia Empty Re: Bloco de Notas copiar o texto para área de transferencia

    Mensagem  raijeweb em Sex 18 Out 2019, 14:37

    Obrigado amigo voce contribuiu muito, vou esperar agora por alguem que saiba dar continuidade ao codigo selecionando o texto

      Data/hora atual: Sex 03 Jul 2020, 18:40