Ajout de texte automatique à chaque nouveau paragraphe

Fermé
Sayrus - 25 mars 2015 à 11:33
m@rina Messages postés 21203 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 22 décembre 2024 - 25 mars 2015 à 13:02
Bonjour,

Je vous expose mon problème :

Je suis en train de faire un template pour certains types de documents et je souhaiterais que dans ce template, à chaque fois que j'appuie sur 'Enter', la même portion de texte apparaisse au début du paragraphe, afin que je ne doive plus la retaper à chaque fois.

Dans l'exemple ci-dessous, je souhaite que le mot "Exemple" entre crochets apparaisse au début de chaque paragraphe :

[Exemple] Je constate blablabla
[Exemple] J'observe blablabla
[Exemple] Je vois que blablabla

J'ai déjà cherché à faire une macro, mais mes notions en VBA sont assez limitées et je n'y suis pas arrivé.

Pourriez-vous m'aider ?

Merci d'avance !

2 réponses

m@rina Messages postés 21203 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 22 décembre 2024 11 370
25 mars 2015 à 13:02
Bonjour,

Déclencher une macro en appuyant sur Enter n'est pas possible. Les macros événementielles sont rares sur Word.

En réalité, la macro est inutile. Voici une solution simple qui utilise la numérotation :

- Sous l'onglet Accueil, groupe Paragraphe, clique sur Liste à plusieurs niveaux puis sur Définir un nouveau style de liste.
- En bas à gauche de la boîte de dialogue, clique sur Format, puis sur Numérotation.
- Le niveau 1 étant sélectionné, efface ce qui est dans la zone Mise en forme de la numérotation, et à la place tu tapes ton texte [Exemple].
- Tu règles les retraits, alignements, etc.
- Tu cliques sur le bouton Plus>>
- Dans la liste déroulante Style à appliquer à ce niveau, tu choisis le style Normal.
- OK, OK

A chaque fois que tu appuieras sur Enter, tu auras [exemple] qui se mettra en début de paragraphe.

Cet exemple convient pour tous les paragraphes, puisqu'on a choisit le style Normal.
Si tu as besoin de plusieurs types de texte dans le même document, il faudra que tu crées des styles, et au lieu de choisir le style Normal, tu choisiras chacun de ces styles, et tu penseras à y affecter des raccourcis clavier.

m@rina
1
salut

voici une macro simple pour ajouter du texte à partir d'un bouton

sub ajout texte()
'
'

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="[Exemple] je constate"
Selection.TypeParagraph
Selection.TypeText Text:="[Exemple] j'observe "
Selection.TypeParagraph
Selection.TypeText Text:="[Exemple] je vois que "
Selection.TypeParagraph
Selection.TypeParagraph
End Sub

tu peux donc copier cette macro dans word et insérer un bouton pour y avoir accès directement
0