user_mobilelogo

Vous souhaitez créer dans votre document plusieurs index de noms propres. Par exemple, un index pour les noms de peintre, ou pour les noms de musiciens, un pour les noms d'écrivains, un pour les noms de lieu, etc.

Cela est possible à la main, en ajoutant pour chaque entrée d'index un commutateur \f suivi d'une lettre de son choix permettant de différencier cette entrée, ce qui donnera par exemple : { XE "Hendrix" \f "m" }. Cette méthode prendra du temps et deviendra vite fastideuse.

Une macro avec l'utilisation d'un UserForm sera donc bienvenue. Voici donc la solution de Geo qui passe par la création d'un Userform qui permettra de trouver tous les mots qui commencent par une majuscule et qui offrira la possibilité de choisir parmi les types d'entrées d'index que vous aurez choisis au départ.

Ce Userform contiendra :

  • un bouton de commande qui correspondra à chacun des types d'entrée que vous souhaitez pour votre index (dans notre exemple, on a mis "Musicien", "Ecrivain", "Peintre" et "Lieu"
  • Une zone de texte récupérera le mot à indexer (ce texte peut être modifié)
  • Une deuxième zone de texte accompagnée d'une case à cocher permettant de renvoyer l'entrée d'index sur une autre entrée.
  • Et enfin un bouton Ignorer.

Pour plus d'informations sur la création de Userforms, voir le tuto ici.

La macro lancera la Userform et cherchera chaque mot dont l'initiale est une majuscule. Il vous suffira de cliquer sur le bouton correspondant à l'entrée d'index souhaité ou bien d'ignorer ce mot en cliquant sur le bouton Ignorer. Automatiquement la macro passera au mot suivant jusqu'à ce qu'il n'y en ait plus.

Installation :

  • Dézipper le fichier
  • Rendez-vous dans le VBE (Alt+F11)
  • Importez le code : Menu Fichier, Importer un fichier (importez le fichier MarquerIndex.bas, puis importez le fichier frmMarquerIndex.frm).
  • Retournez dans le document et placez le curseur en début de texte, puis lancez la macro.

 

Statistiques

Aujourd'hui1975
Hier2571
Cette semaine9787
Ce mois19414
Total depuis 200411672141

28
visiteurs actuellement en ligne

9 juillet 2020