メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author Xiaoyang Last modified

例えば、メールメッセージを作成する際に頻繁に使用する特定のテキスト文字列があるとします。その場合、そのテキストを毎回手動で何度も入力するのではなく、メール本文内の現在のカーソル位置に自動的に挿入したいと考えているかもしれません。この記事では、このタスクを迅速に解決する簡単な方法について説明します。

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. その後、コードウィンドウを保存して閉じ、新しいメールを作成し、メッセージウィンドウでユーザー定義クイックアクセスツールバーのドロップダウンをクリックし、「その他のコマンド」を選択します(スクリーンショット参照):

doc insert text at cursor 1

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

(1.) 「コマンドの選択」ドロップダウンから「マクロ」を選択します;

(2.) 挿入したマクロ名をクリックします;

(3.) 次に、「追加」ボタンをクリックして、このマクロをユーザー定義クイックアクセスツールバーリストボックスに追加します。

doc insert text at cursor 2

5. そして、「OK」ボタンをクリックしてダイアログボックスを閉じます。これで、マクロアイコンがユーザー定義クイックアクセスツールバーに挿入されました。テキストを挿入したい場所にカーソルを置き、このマクロボタンをクリックすると、特定のテキストがすぐに挿入されます(スクリーンショット参照):

doc insert text at cursor 3

メッセージ作成中に任意の場所に特定のテキストを挿入する:

Kutools for Outlook自動テキスト機能を使用すると、自動テキストを作成でき、必要に応じてメッセージ作成中にどこでも挿入できます。

doc insert text at cursor 4
 👉 Kutools for Outlook には現在無料版があり、その 70+ の機能が生涯無料で利用可能です。今すぐ無料版をダウンロードしてください

最高のオフィス生産性ツール

最新情報: Kutools for Outlook 無料版リリース!

新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロードしてみましょう!

🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。

📧 メール自動化: 自動返信(POPとIMAPに対応) / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...

📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...

👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...

👩🏼‍🤝‍👩🏻 連絡先&カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...

お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応!

Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2

🚀 ワンクリックダウンロード — Office用アドインをすべて入手

強くおすすめ: Kutools for Office(5-in-1)

ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPointOffice Tab Pro 今すぐダウンロード!

  • ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
  • 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
  • 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint