Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2019
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 18
    Localisation : Suisse

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2019
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Mettre en surbrillance des ensembles de mots

    Bonjour,

    Dans le cadre des cours, je fais des dissertations et il faut que je passe en surbrillance certains type de mots comme des adverbes, des adjectifs et des phrases relatives. Chacun de ses groupes auraient une couleur de surbrillance différente pour rapidement les identifier. Cependant, dans un texte ces différents groupes de mots sont répartis sporadiquement et l'idée est de pouvoir le faire automatiquement sans faire d'erreur ou y passer 20 minutes. J'avais déjà trouvé un premier code qui permet de mettre en surbrillance des termes entre crochets mais je n'ai pas su tweeker le code pour le faire correspondre à des ensembles de mots.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    :
     
    Sub MaMacro()
    'Créée par Souriane - Novembre 2011
     
    'Recherche s'il y a un "["
      Do
        Selection.Find.ClearFormatting
          With Selection.Find
            .Text = "["
            .MatchWildcards = False
        End With
        Selection.Find.Execute
     
     
        If Selection.Find.Found = False Then
    'Si "[" n'est pas trouvé, alors il ne se passe rien
     
    'Mais si un "[" est trouvé, il se passe ceci:
        Else
     
    'Le "[" est désélectionné
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    'Le mode "sélection" est activé et se rend jusqu'au premier "]" rencontré
        Selection.Extend
        Selection.Extend Character:="]"
    'Il désélectionne le ]
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
     
    'Met le texte sélectionné en jaune
        Options.DefaultHighlightColorIndex = wdYellow
        Selection.Range.HighlightColorIndex = wdYellow
     
    'Désélectionne le texte en jaune et se place après le "]"
        Selection.MoveRight Unit:=wdCharacter, Count:=2
        End If
     
    'Reprend le loop pour voir si il y a un autre "[" dans le texte.
      Loop While Selection.Find.Found = True
     
    End Sub

    Vous trouverez en fichier joint un document Word rempli d'adverbes, d’adjectifs et de pronoms relatifs pour que vous puissiez vous tester vos codes. Ce document est la base de données avec laquelle j'imaginais que la macro puisse tourner.

    Si vous avez besoin de précisions ou si je n'ai pas été clair, n'hésitez pas à poser vos questions.

    Par avance merci,

    Atta
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    3 631
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 3 631
    Points : 9 243
    Points
    9 243
    Billets dans le blog
    26

    Par défaut

    Citation Envoyé par Atta3236 Voir le message
    Bonjour,

    Au cas où vous ne trouveriez pas de solution, ce lien conduit à mon blog où je présente un outil de recherche de chaînes avec mise en couleur : word-outil-surlignage-multi-chaines-multi-couleurs.
    Nb : Cet outil n'est pas d'accès libre.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

Discussions similaires

  1. Réponses: 0
    Dernier message: 23/06/2015, 20h18
  2. Mettre en surbrillance un mot..
    Par nounzor dans le forum Composants
    Réponses: 2
    Dernier message: 21/10/2010, 15h38
  3. Comment mettre en surbrillance un mot d'un TCanvas ?
    Par richard038 dans le forum Langage
    Réponses: 2
    Dernier message: 09/11/2007, 22h00
  4. Richedit mettre en évidence des mots
    Par JoseF dans le forum Delphi
    Réponses: 4
    Dernier message: 15/06/2007, 11h48
  5. [Word] Comment mettre en évidence des mots dans un document ?
    Par ecocentric dans le forum Framework .NET
    Réponses: 1
    Dernier message: 03/08/2006, 17h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo