Presse papier Outlook

Bonjour à vous,

Je souhaite attribuer un lien hypertexte à un mot dans un mail outlook 2013.

Le but : Sélectionner le mot voulu dans le mail, puis faire appel à une macro pour créer un lien hypertexte à ce mot.

Voici le bout de code que j'ai trouvé sur le net :

Sub OT()

Dim MSForm As Object
Dim presse_papier As String

    'récupération presse-papier
     Set MSForm = New DataObject
    MSForm.GetFromClipboard
    presse_papier = MSForm.GetText
    Set MSForm = Nothing

End Sub

Je ne sais pas comment me servir de ce bout de code.

Message d'erreur que je n'arrive pas à résoudre : type défini par l'utilisateur non défini

Merci d'avance pour votre aide !

J'ai oublié de préciser, que ce mot sélectionné, doit être ajouté dans le lien hypertexte.

Donc pour résumer :

Je tape le mot dans le mail, je le sélectionne et le copie dans le presse papier.

La macro se lance, récupère le mot dans le presse papier et ajoute le lien hypertexte au mot.

Je me sert du presse papier parce que je n'arrive pas à récupérer le mot en .selection

Merci d'avance,

Romain.

Bonjour à tous !

Personne pour m'aider ?

J'espère avoir posté ce message dans la bonne section du forum.

Merci,

Tchio !