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.) 「コマンドの選択」ドロップダウンから「マクロ」を選択します；
(2.) 挿入したマクロ名をクリックします；
(3.) 次に、「追加」ボタンをクリックして、このマクロをユーザー定義クイックアクセスツールバーリストボックスに追加します。
5. そして、「OK」ボタンをクリックしてダイアログボックスを閉じます。これで、マクロアイコンがユーザー定義クイックアクセスツールバーに挿入されました。テキストを挿入したい場所にカーソルを置き、このマクロボタンをクリックすると、特定のテキストがすぐに挿入されます（スクリーンショット参照）：
メッセージ作成中に任意の場所に特定のテキストを挿入する： Kutools for Outlookの自動テキスト機能を使用すると、自動テキストを作成でき、必要に応じてメッセージ作成中にどこでも挿入できます。  👉 Kutools for Outlook に現在無料版が登場しました。このバージョンでは、70+ の機能を生涯無料でご利用いただけます。今すぐ無料版をダウンロードしてください。 |
最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース！
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます！今すぐダウンロードをクリック！
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう！
