¿Cómo puedo formatear automáticamente el texto del hipervínculo en Word / Outlook?

Me gusta agregar hipervínculos a mis documentos de Word y correos electrónicos en Outlook. Por lo general, prefiero cambiar el enlace Text to displaya algo más legible que solo la URL. Sigo patrones para algunas URL. Por ejemplo, tenemos un wiki de Confluence , y generalmente reformateo el texto del enlace de

https://host/confluence/display/space/Some+Wiki+Page

a

Our Wiki - Some Wiki Page

De acuerdo, la URL en sí es bastante descriptiva, pero aún prefiero una forma de texto. También me gusta formatear otros enlaces de esta manera (por ejemplo, Amazon.com - Some Product).

¿Hay alguna manera de crear reglas automáticas para hacer este formato al pegar un enlace? ¿Quizás en una macro?

También aceptaré una respuesta si hay una manera de abrir automáticamente el Insert Hyperlinkdiálogo cuando pego un enlace.

Esta macro pegará un enlace que tenga en el portapapeles, a TextToDisplay = " ref ". Que puede editar en la macro a lo que desee, y hacer múltiples macros con diferentes TextToDisplay.

Alguien podría fácilmente hacer que esto reconozca un dominio y preformatee el texto. Pero no tenía necesidad, así que no he hecho eso.

Para ejecutar esta macro debe incluir una referencia:

Herramientas> Referencias> Examinar> ..Windows \ System32 \ FM20.dll, Abrir, Aceptar (Agrega la biblioteca de objetos MS Forms 2.0)

Esto se hizo en Word 2003, por lo que no es prometedor para otras versiones, pero probablemente funcionará.

Por ejemplo, hice uno llamado hyperlink_yt, que utilizo para enlaces de youtube con TextToDisplay = "yt", asigné el atajo Alt + Y a esta macro.

Sub hyperlink_ref()
' Makes clipboard-hyperlink ref
Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strClip, SubAddress:="", ScreenTip:="", TextToDisplay:="ref"
End Sub