Discussion :

[sylriviere]

Bonjour,

Le code suivant me permet de rechercher une combinaison de caractères et d'en faire le remplacement par un seul caractère.
Ce code fonctionne tout à fait mais je voudrais rajouter que la recherche et le remplacement se fasse également avec la précision de la police (il s'agit de remplacer une combinaison de caractères écrits dans une police de grec X par une seule voyelle grecque dans une autre police de grec).

J'ai essayé d'introduire Selection.Font.Name = "X" pour la recherche et Selection.Font.Name = "Y" pour le remplacement, mais ça ne marche pas et je ne sais pas à quel endroit il faut que j'introduise ces deux lignes si tant est que la syntaxe est correcte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim rechercher() As Variant
    Dim remplacer() As Variant
 
    Dim c As String
    Dim r As String
 
    rechercher = Array("a)\", "a(/", "e)")
    remplacer = Array("x", "xx", "xxx")
 
    For i = 0 To UBound(rechercher)
        c = rechercher(i)
        r = remplacer(i)
        Debug.Print c, r
    Next i

Merci beaucoup pour votre aide.

Sylvie

[Heureux-oli]

Salut Sylvie,

Pourquoi ne pas utiliser la fonction de recherche et de remplacement de Word qui est très performante.

Voilà un exemple avec une recherche sur la police de caractère.
Si la police est en Arial, elle est remplacée par du TNR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Selection.Find
    .Font.Name = "Arial"
    .Forward = True
    .Execute
End With
Selection.Font.Name = "Times New Roman"

[sylriviere]

Merci Olivier.