Discussion :

[quangdao]

Bonjour à tous

Je voudrais écrire une petite macro qui cherche tous les mots contenant une chaîne de caractères spécifique, par exemple xxxMINTyyy, puis écrire les mots trouvés dans une colonne Excel.

Quelqu'un a une proposition ?

Merci.

[Heureux-oli]

Salut,

Pour l'instant, tu en es où ?
Qu'est ce qui te bloque ?

[quangdao]

Salut,

Pour l'instant, tu en es où ?
Qu'est ce qui te bloque ?

Salut Oli,

Je trouve la chaîne dans le mot par. Find.Execute("Chaine") mais je connais pas la commande pour prendre le mot entier.

Merci.

[Heureux-oli]

Salut,

Code :

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

1
2
    Selection.Extend
    Selection.Extend

Si tu le fais une troisième fois, tu auras la phrase.

[quangdao]

Salut Olivier

Ca n'a pas marché. Mon problème c'est de copier tous les mots de format "xx_MOT_CLE_yy" dans le document Word.

Mon code permet de récupérer le mot entier mais quand le mot cherché est de format "xx_MOT_CLE_yy_zz" ça ne marche pas. Donc je cherche à généraliser pour ma recherche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Found = AppWord.Selection.Find.Execute("MOT_CLE")
 
While Found
 
Call AppWord.Selection.MoveRight(wdWord,2,wdExtend)
 
MOT_ENTIER = AppWord.Selection
 
'MsgBox (MOT_ENTIER)
 
Found = AppWord.Selection.Find.Execute("MOT_CLE")
 
Wend

[Heureux-oli]

Salut,

Je pige pas tout.
Tu demandes comment faire pour sélectionner un mot.
Je donne une solution tu en choisis une autre et tu me dis que ça ne marche pas ?

[quangdao]

Salut Oli,

Oui, j'ai essayé 3 fois Selection.Extend mais ça ne marche pas. C'est ma deuxième journée d'expérience avec VB Word et je me débrouille pour trouver une solution pour récupérer tous les mots de format "xxx_MOT_CLE_yyy_zzz" dans mon document Word.

Merci de ta rapidité étonnante.

[Heureux-oli]

Essaye avec ce morceau de code pour voir !

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
Do While Selection.Find.Execute
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "ow"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Extend
    Selection.Extend
    MsgBox Selection.Text
    Selection.EscapeKey
Loop

[quangdao]

Essaye avec ce morceau de code pour voir !

Vraiment très élégant ton code mais ça ne marche pas tant pis j'utilise le mien pour avancer.

Et pour copier tout le paragraphe qui suis ce mot entier, quelle commande peux-on utiliser Oli ?

Par exemple

MOT_ENTIER ; xxxxx, xxxx, xxx

'je veux copier qui est juste-ici
paragrapheparagrapheparagrapheparagrapheparagrapheparagrapheparagrapheparagraphe


Merci sincèrement.