Bloco de Notas copiar o texto para área de transferencia

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

Boa tarde,

Veja se é isto que pretende!

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

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..

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