☰

Reemplazo automático de cadena con hipervínculo usando partes rápidas en Outlook 2010

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010
Reemplazo automático de cadena con hipervínculo usando partes rápidas en Outlook 2010

¿Es posible crear unaparte rápida¿Que reemplaza automáticamente una cadena con un hipervínculo en Outlook 2010? Me gustaría evitar el vba usado en la pregunta.Convertir texto sin formato en hipervínculo en Outlook.

Ejemplo

  • si escribo (y presiono F3)

google algo

  • Lo reemplaza con el hipervínculo.

algo

Que enlaza con:

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

Respuesta1

Puede evitar VBA y piezas rápidas utilizandoAutoHotkeypara crear una macro de acceso directo que emita las claves que hacen el trabajo.

Pero dado que solicita una solución de Outlook, aquí tiene una macro de VBA simple (e incluso algo probada) para convertir el texto actualmente seleccionado en un hipervínculo del tipo que solicitó:

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

información relacionada