Outlook でメッセージを作成中に、カーソル位置に特定のテキストを挿入するにはどうすればよいですか？

メールを作成する際、特定のテキスト文字列を頻繁に使うことがあります。そのたびに手動で入力するのは面倒ですよね。本記事では、こうしたテキストをメール本文のカーソル位置にワンクリックで自動挿入する、簡単でスピーディな方法をご紹介します。

VBA コードを使用してメッセージ作成中にカーソル位置に特定のテキストまたは現在の日付を挿入する

---

VBA コードを使用してメッセージ作成中にカーソル位置に特定のテキストまたは現在の日付を挿入する

次の手順に従って、以下の VBA コードを使用すれば、カーソル位置に特定のテキスト文字列や現在の日付を簡単に挿入できます。

1．[[ALT + F11]]キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．次に、挿入＞モジュールをクリックして開いた空白のモジュールに、以下のコードをコピー＆ペーストしてください。

VBA コード：カーソル位置に特定のテキストまたは現在の日付を挿入する

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

注：上記のコードにおいて、ExtendOfficeは挿入したい特定のテキストです。現在の日付をテキスト文字列の代わりに挿入したい場合は、スクリプト中のxSel.InsertBefore Format(「ExtendOffice」)をxSel.InsertBefore Format(Now, 「DD/MM/YYYY」)に変更してください。

3．次に、コードウィンドウを保存して閉じ、新規メールを作成します。メッセージウィンドウで、クイックアクセスツールバーのカスタマイズドロップダウンからその他のコマンドを選択します（下図参照）。

4．Outlook のオプションダイアログボックスで、次の操作を行ってください。

（1）「コマンドの選択」ドロップダウンからマクロを選択します。Choose command from drop-down;

（2）挿入済みのマクロ名をクリックします。

（3）次に、追加ボタンをクリックして、このマクロをクイックアクセスツールバーのカスタマイズリストボックスに追加します。

5．その後、OKボタンをクリックしてダイアログボックスを閉じます。これでマクロアイコンがクイックアクセスツールバーのカスタマイズに追加されます。テキストを挿入したい位置にカーソルを置き、このマクロボタンをクリックすれば、特定のテキストが即座に挿入されます（下図参照）。

---

メッセージ作成時に任意の位置に特定のテキストを挿入する： Kutools for Outlook のAuto Text 機能を使えば、定型文を簡単に作成でき、メール作成時に必要な場所にいつでも挿入できます。 👉 Outlook でよりスマートに作業しましょう！ダウンロードKutools for Outlookして、100+の時短機能で生産性を高めましょう。30 日間無料です！