Macro ou astuce : Surligner certains caractères Résolu/Fermé

Question

Bonjour, 
Je suis en prépa, j'ai d'énormes quantités de textes divers à surligner chaque jours. Je me suis fait depuis le début de l'année quelque chose de précis : les dates (1987, 1567 = série de 4 chiffres) en vert, les auteurs (SMITH, COLBERT, FAMA = série >= 3 lettres en majuscules) en bleu, et d'autres choses, mais qui ne pourront pas être automatisés car représentant qq chose de trop hétérogène.

Je cherche un moyen d'automatiser le surlignage. J'ai déjà trouvé une macro qui me permet d'avoir la liste des tous les auteurs (le code ici :https://faqword.com/index.php/word/outils-edition/376-comment-recuperer-tous-les-sigles-dun-document-pour-les-lister-a-la-fin-de-ce-document

Je ne sais pas coder moi meme ce genre de chose. Je me demandais s'il y avait une possibilité de mettre des listes plutot que des mots singuliers dans la fonction remplacer de word, ou alors la possibilité de modifier la macro pour qu'elle surligne au lieu de me créer un nouveau document avec la liste des auteurs.

Merci d'avance !


Configuration: Windows / Chrome 96.0.4664.93

Raymond PENTIER · Answer

Bonjour.

Un morceau de réponse : c'est NON pour la question "Je me demandais s'il y avait une possibilité de mettre des listes plutot que des mots singuliers dans la fonction remplacer de word" ...

eriiic · Answer

Bonjour à tous,

fait à l'arrache vue l'heure et que je ne connais pas bien vba de word.
Sûrement des fignolages à faire mais ça te donnera une base de départ.
Sub surlig()    Dim wd As Object    For Each wd In ThisDocument.Words        If Trim(wd.Text) Like "####" Then            wd.Select            Selection.Range.HighlightColorIndex = wdBrightGreen        ElseIf Len(wd.Text) >= 3 And wd.Text = UCase(wd.Text) Then            If wd.Text Like "[A-Z][A-Z][A-Z]*" Then                wd.Select                Selection.Range.HighlightColorIndex = wdTurquoise            End If        End If    NextEnd Sub
Je contrôle que les 3 premières lettres soient dans la tranche A-Z, sinon >= se retrouve surligné vu que ça s'écrit pareil en minuscule/majuscule.
https://www.cjoint.com/c/KLnxw0UZIaD
eric

m@rina · Answer

Bonjour à tous (coucou à Raymond et Eric ;) )

A toutes fins utiles, j'ai une macro qui peut vous être utile :
https://faqword.com/index.php/word/10-mise-en-forme/1182-comment-en-une-seule-operation-appliquer-un-format-particulier-a-plusieurs-expressions-dissemines-dans-un-document

m@rina

eriiic · Answer

Encore un qui suit bien ses demandes.
De rien Rod 78 !

Macro ou astuce : Surligner certains caractères

4 réponses

Discussions similaires