Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment insérer un texte spécifique au curseur lors de la rédaction d'un message dans Outlook ?

Author Xiaoyang Last modified

Supposons que vous ayez certaines chaînes de texte spécifiques qui sont fréquemment utilisées lors de la rédaction de messages électroniques. Vous aimeriez donc insérer ce texte à la position actuelle du curseur dans le corps du mail automatiquement, sans avoir à les retaper manuellement encore et encore. Dans cet article, je vais vous parler d'une méthode simple pour résoudre cette tâche rapidement.

Insérer un texte spécifique ou la date actuelle au curseur lors de la rédaction d'un message avec un code VBA


Insérer un texte spécifique ou la date actuelle au curseur lors de la rédaction d'un message avec un code VBA

Le code VBA suivant peut vous aider à insérer une chaîne de texte spécifique ou la date actuelle à la position du curseur, veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vierge ouvert :

Code VBA : Insérer un texte spécifique ou la date actuelle au curseur

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

Remarque : Dans le code ci-dessus, ExtendOffice est le texte spécifique que vous souhaitez insérer. Si vous devez insérer la date actuelle au lieu de la chaîne de texte, veuillez remplacer le texte dans ce script xSel.InsertBefore Format("ExtendOffice") par xSel.InsertBefore Format(Now, "DD/MM/YYYY").

3. Ensuite, sauvegardez et fermez la fenêtre de code, créez un nouvel email, et dans la fenêtre Message, cliquez sur le menu déroulant Personnaliser la barre d'outils Accès rapide, puis choisissez Plus de commandes, voir capture d'écran :

doc insert text at cursor 1

4. Dans la boîte de dialogue Options Outlook, veuillez effectuer les opérations suivantes :

(1.) Sélectionnez Macros depuis le menu déroulant Choisir une commande depuis ;

(2.) Cliquez sur le nom de la macro que vous avez insérée ;

(3.) Ensuite, cliquez sur le Ajouter bouton pour ajouter cette macro à la liste des commandes de la barre d'outils Accès rapide personnalisée.

doc insert text at cursor 2

5. Ensuite, cliquez sur le bouton OK pour fermer la boîte de dialogue. Maintenant, l'icône de la macro a été ajoutée à la barre d'outils Accès rapide personnalisée. Placez le curseur là où vous souhaitez insérer le texte, puis cliquez sur ce bouton de macro, le texte spécifique sera inséré immédiatement, voir capture d'écran :

doc insert text at cursor 3

Insérer un texte spécifique à n'importe quel endroit lors de la rédaction d'un message :

Avec la fonction Auto Texte de Kutools pour Outlook, vous pouvez créer un texte automatique, puis l'insérer n'importe où lors de la rédaction d'un message selon vos besoins.

doc insert text at cursor 4
 👉 Kutools pour Outlook dispose désormais d'une version gratuite, avec 70+ fonctionnalités gratuites à vie. Téléchargez la version gratuite dès maintenant.

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...

Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

kutools for outlook features1 kutools for outlook features2

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

  • Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
  • 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
  • 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint