☰

Outlook 2010 のクイック パーツを使用して文字列をハイパーリンクで自動置換する

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010
Outlook 2010 のクイック パーツを使用して文字列をハイパーリンクで自動置換する

作成することは可能ですか？クイックパートOutlook 2010で文字列をハイパーリンクに自動置換するvbaは？質問で使用されているvbaを避けたいのですがOutlook でプレーンテキストをハイパーリンクに変換する。

例

  • と入力して（F3キーを押すと）

グーグルで何かを検索する

  • ハイパーリンクに置き換えられます

何か

リンク先:

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

答え1

VBAとクイックパーツを避けるには、オートホットキー目的の作業を実行するキーを発行するショートカット マクロを作成します。

しかし、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

関連情報