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

電子メールメッセージを作成するときに頻繁に使用される特定のテキスト文字列があるとすると、手動で何度も入力することなく、テキストをメール本文のカーソルの現在の位置に自動的に挿入したいとします。この記事では、このタスクをすばやく解決するための簡単な方法について説明します。

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

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

次のVBAコードは、特定のテキスト文字列または現在の日付をカーソル位置に挿入するのに役立ちます。次のようにしてください。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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

Note：上記のコードでは、 ExtendOffice は挿入する特定のテキストです。テキスト文字列の代わりに現在の日付を挿入する必要がある場合は、このスクリプトのテキストを変更してください。 xSel.InsertBefore Format（ "ExtendOffice") 〜へ xSel.InsertBefore Format（現在、 "DD / MM / YYYY"）.

3。次に、コードウィンドウを保存して閉じ、新しいメールを作成し、[メッセージ]ウィンドウで[ クイックアクセスツールバーをカスタマイズする ドロップダウンして、 その他のコマンド、スクリーンショットを参照してください：

docカーソル1にテキストを挿入

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

（1.）選択 マクロ からコマンドを選択します 落ちる;

（2.）挿入したマクロ名をクリックします。

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

docカーソル2にテキストを挿入

5。次に、をクリックします OK ボタンをクリックしてダイアログボックスを閉じます。これで、マクロアイコンがに挿入されました。 クイックアクセスツールバーをカスタマイズする。テキストを挿入する場所にカーソルを置き、このマクロボタンをクリックすると、特定のテキストが一度に挿入されます。スクリーンショットを参照してください。

docカーソル3にテキストを挿入