[Resolvido]Copiar para uma variável só uma palavra selecionada de uma frase de uma textbox

Como faço para copiar uma palavra selecionada de uma frase presente numa textbox para uma variável via vba?
Imagine uma textbox com a frase: "Hoje é um grande dia". Clicando e selecionando somente a palavra "grande", daquela frase, eu gostaria de poder colocá-la numa variável no vba.
1 - O Setfoccus com RunCommand copiará toda a frase da textbox.
2 - O SelText com o SelStar e SelLen permitem delimitar a palavra da frase, mas como delimitar isso para o palavra selecionada?
3 - O SendKeys "^{c}", true trará uma resposta inesperada. Trará o código da subrotina criada.

Preciso fazer um Ctrl + c só na palavra selecionada de uma frase de uma textbox , via vba, e disponibilizar esta palavra numa variável do vba. Lembre-se que não seria toda a frase da textbox, e sim somente uma palavra daquela frase.

Olá Lauro Ribeiro,

Não é muito fácil, pois é necessária uma ação.
Veja se este exemplo ajuda, código usado:

Código:

Private Sub txt1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'alvaro teixeira 2023 para maximoaccess
       Me.txtCopia = txt1.SelText
End Sub

Abraço

Nota: Coloquei o exemplo para uma caixa de texto, mas será ajustar para uma variável.

Perfeito, adorei o seu exemplo. Muito obrigado.

Olá Lauro Ribeiro,

Fico feliz por ter ajudado, obrigado pelo feedback.

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Resolvido, Obrigado