☰

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

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010
Автоматическая замена строки гиперссылкой с использованием быстрых частей в Outlook 2010

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

Пример

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

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

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

что-нибудь

Которые ссылаются на:

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

решение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

Связанный контент