Discussion :

[Ysae68]

Bonjour à tous !

Je travaille sur un document Word qui contient à de nombreux endroits du texte entre <>. Je souhaiterais remplacer la mise en forme du texte à ces endroits, mais comme il y en a beaucoup, je n'avais pas très envie de faire cela manuellement... J'ai donc commencé une petite macro pour m'aider :

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
Selection.WholeStory
 
    With Selection.Find
        .Text = "<" 'Texte du début
        .MatchWholeWord = False
    End With
    Selection.Find.Execute
    Selection.Extend
 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ">" 'Texte de fin
        .MatchWholeWord = False
    End With
    Selection.Find.Execute
 
    With Selection.Range
        .Font.Name = "Times New Roman"
    End With

Problème : la macro s'arrête à la première balise <> trouvé, alors que j'aurais besoin qu'elle change la mise en forme pour toutes les balises du document.

Un peu d'aide serait la bienvenue... merci d'avance !

[carden752]

Bonour,

Une recherche par caractère générique sera plus performante.
Le principe je sélectionne ce qui se trouve entre < et >.
Cocher les caractères génériques
Dans la zone Rechercher : "\<(*)\>"
Dans la zone Remplacer "\1" plus la mise en forme et il n'y a plus les < et > mais le texte compris dedans prendra la mise en forme souhaitée.

Explication \ permet d'indiquer que c'est le caractère et pas sa fonction donc \< indique la recherche du caractère "<"
*permet de rechercher tous les caractères
\> indique la recherche du caractère ">"

les parenthèses permettent d'indiquer qu'on voudra réutiliser cette partie dans la zone remplacer
\1 les premiers caractères de la zone rechercher entre parenthèses

Même pas besoin de macro du coup