Автозамена строки с гиперссылкой с использованием быстрых частей в Outlook 2010

Question

Можно ли создать быструю часть, которая автоматически заменяет строку с гиперссылкой в Outlook 2010? Я хотел бы избежать vba, используемого в вопросе « Преобразовать обычный текст в гиперссылки в Outlook» .

пример

• если я наберу (и нажмите F3)

гугл что нибудь

• Это заменяет это гиперссылкой

что-то

Какие ссылки на:

https://www.google.nl/?q=something#newwindow=1&q=something

Answer 1

Вы можете избежать VBA и быстрых деталей, используя AutoHotkey для создания ярлыка макроса, который выдает ключи, которые выполняют работу.

Но поскольку вы запрашиваете решение для Outlook, вот простой (и даже несколько протестированный) макрос VBA для преобразования выделенного в данный момент текста в гиперссылку запрошенного вами типа:

Sub SelectionToHyperlink()
' Convert the current selection to a hyperlink
If ActiveInspector.EditorType = olEditorText Then
    MsgBox "Can't add links to textual mail"
    Exit Sub
End If
Dim doc As Object
Dim sel As Object
Set doc = ActiveInspector.WordEditor
Set sel = doc.Application.Selection
doc.Hyperlinks.Add Anchor:=sel.Range, _
    Address:="https://www.google.nl/?newwindow=1&q=" & sel.Text, _
    SubAddress:="", _
    ScreenTip:="", _
    TextToDisplay:=sel.Text
End Sub