Como posso formatar automaticamente o texto do hiperlink no Word / Outlook?

Question

Eu gosto de adicionar hiperlinks aos meus documentos do Word e e-mails no Outlook. Eu geralmente prefiro mudar o link Text to display para algo mais legível do que apenas o URL. Eu sigo padrões para algumas URLs. Por exemplo, temos um wiki Confluence , e eu normalmente reformato o texto do link

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

para

Our Wiki - Some Wiki Page

Concedido, a URL em si é bastante descritiva, mas eu ainda prefiro um formulário de texto. Também gosto de formatar outros links dessa maneira (por exemplo, Amazon.com - Some Product ).

Existe uma maneira de criar regras automáticas para fazer essa formatação ao colar um link? Talvez em uma macro?

Também aceitarei uma resposta se houver uma maneira de exibir automaticamente a caixa de diálogo Insert Hyperlink quando eu colar um link.

    

Answer 1

Esta macro irá colar um link que você tem na área de transferência, para TextToDisplay=" ref ". Que você pode editar na macro para o que quiser, e fazer várias macros com TextToDisplay diferente.

Alguém provavelmente poderia facilmente reconhecer um domínio e pré-formatar o texto. Mas eu não tinha necessidade, então não fiz isso.

Para executar essa macro, você deve incluir uma referência:

Ferramentas > Referências > Navegar > ..Windows \ System32 \ FM20.dll, Abrir, OK (Adiciona a biblioteca de objetos MS Forms 2.0)

Isso foi feito no Word 2003, então não há promessa para outras versões, mas provavelmente funcionará.

Por exemplo, eu fiz uma chamada hyperlink_yt, que eu uso para links do youtube com TextToDisplay="yt", atribuída ao atalho Alt + Y para essa 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