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


    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 : 107
    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 17/10/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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 198
    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 17/10/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 5 vez(es)
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 107
    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 18/10/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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 198
    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 18/10/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 : 107
    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 18/10/2019, 14:37

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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:45