Discussion :

[fazpedro]

Bonjour,

je recherche à mettre en forme une partie du corps d'un mail et ce en boucle sur tous les mots qui sont entre les caractères : < et >
exemple :<monadresse@mail.com>

Mon code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim cpte As Object
For Each cpte In Itm.HTMLBody
ObjwdSelection.Find.Text = "<*>"
ObjwdSelection.Find.Execute
With ObjwdSelection.Font ' Format de police
    .Name = "Arial"
    .Size = 15
    .ColorIndex = 1
End With
Next

Message d'erreur : Objet requis

J'ai mis Dim cpte As Object et là j'ai en message d'erreur : Type défini par l'utilisateur non défini

Merci

[Oliv-]

OMG !

Tu pensais vraiment y arriver comme cela ? soit tu utilises le htmlbody avec les balises HTML soit le WordEditor mais pas un mix des 2

tu devrais te servir des expressions régulières (regex) c'est très puissant mais pas simple

https://cafeine.developpez.com/access/tutoriel/regexp/
un exemple là
https://www.developpez.net/forums/bl...nvoye-message/

[fazpedro]

J'avoue que je ne comprends pas... comment l'adapter

[Oliv-]

est ce que tu sais faire des macros WORD ?

[fazpedro]

Le souci doit être sur les caractères génériques "*" dans l'adresse car j'ai essayé en indiquant une adresse bidon : <monadresse@bidon.com> et cela fonctionne bien avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ObjwdSelection.Find.ClearFormatting
ObjwdSelection.Find.Replacement.ClearFormatting
    With ObjwdSelection.Find
        .Text = "<monadresse@bidon.com>"
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = True
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
ObjwdSelection.Find.Execute Replace:=wdReplaceAll

Si je mets

Code :

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

.Text = "<*>"

cela ne fonctionne pas

[Oliv-]

oui ca doit venir de là

Référence du développeur Word
Find.MatchWildcards, propriété
Cette propriété a la valeur True si le texte à rechercher contient des caractères génériques. Type de données Boolean en lecture-écriture.
Syntaxe

expression.MatchWildcards

expression Expression qui renvoie un objet Find.

Remarques


La propriété MatchWildcards correspond à la case à cocher Utiliser les caractères génériques de la boîte de dialogue Rechercher et remplacer (menu Edition ).

Pour spécifier le texte à rechercher dans un document, utilisez la propriété Text de l’objet Find ou l’argument RechercherTexte avec la méthode Execute.


Exemple


Cet exemple montre comment rechercher et sélectionner le prochain mot de trois lettres commençant par « s » et finissant par « t ».

Visual Basic pour Applications
With Selection.Find
.ClearFormatting
.Text = "s?t"
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
.Execute Format:=False, Forward:=True
End With

[fazpedro]

Cela fonctionne pour un nombre déterminé mais pas sur toutes les adresses :

le code ci-dessous fonctionne pour une adresse "monadresse@bidon.com" mais pas pour "monadresse2@bidon.com" avec un caractère en plus...

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ObjwdSelection.Find.ClearFormatting
ObjwdSelection.Find.Replacement.ClearFormatting
    With ObjwdSelection.Find
          .Text = "<????????????????.com>"
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = True
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
        .MatchWildcards = True
   End With
ObjwdSelection.Find.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

[Oliv-]

Le ? Remplace 1 caractère
Le * plusieurs

[fazpedro]

Oui mais comment faire pour qu'il reconnaisse toutes les adresses car je ne connais pas à l'avance le nombre de caractères ?
Merci,

J'ai essayé ceci mais il me met tout le texte en gras et italique :

Code :

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

 .Text = "<*.com>"

Je voudrais qu'il sélectionne toutes les adresses quel que soit le nombre :
monadresse@bidon.com
monadresse2@bidon.com
monadresse33@bidon.com

[Oliv-]

Pour rechercher un caractère générique (< ou >) il faut mettre \ devant

.text="\<*.com\>"

voir ici https://sepia.developpez.com/office/...cherremplacer/

le mieux serait les regex :http://lmgtfy.com/?q=regex+word+document+selection

[fazpedro]

Super Merci Oliv-

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ObjwdSelection.Find.ClearFormatting
ObjwdSelection.Find.Replacement.ClearFormatting
    With ObjwdSelection.Find
         .Text = "\<*.com\>"
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = True
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
        .MatchWildcards = True
   End With
ObjwdSelection.Find.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue