Discussion :

[Alain-Ambazac]

Bonjour à tous,
Ceci est mon premier message sur le forum.
J'ai fait une macro sur mon Word 2003 mais je n'arrive pas à tester la fin de mon document pour qu'elle s'effectue jusqu'à la fin du document.
Dans mon texte (un ensemble de parties d'échecs commentées destiné à être vocalisées pour des joueurs aveugles) ma macro recherche chaque ! et écrit devant chaque coup trouvé "le bon coup"
Ensuite je me positionne après le ! et je recherche le ! suivant pour faire le traitement ... et ce jusqu'à la fin du fichier.
Je ne sais pas comment insérer While Wend dans ma macro pour le traitement se fasse jusqu'à la fin du document.
J'aurai aussi d'autres traitements du même genre à faire, mais une fois que je serai sur les rails, ça ira .
Merci pour le coup de main
Alain


Voici ma macro:

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
21
22
23
24
25
26
 
' bon_coup Macro
' Macro enregistrée le 09/04/2016 par Alain_2
' "&chr(10)&"Va au début du document
' "&chr(10)&"Recheche ! et met devant le coup joué "le bon coup"
' "&chr(10)&"dépasse le ! et recheche la prochaine occurence pour faire le traitement jusqu'à la fin du document
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "!"
        .Replacement.Text = "^p["
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdWord, Count:=2
    Selection.TypeText Text:=" le bon coup "
    Selection.MoveRight Unit:=wdWord, Count:=2
    End Sub

[cerede2000]

Bonjour à toi,

Bienvenue sur le forum, par pitité prends tout de suite l'habitude de mettre ton code entre balise CODE.
Pour cela utilise le bouton # dans la barre au dessus de l'endroit ou tu saisie ton texte

Alors change ceci :

Code :

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

.Wrap = wdFindContinue

En ceci :

Code :

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

Wrap = wdFindStop

Et pour la boucle :

Code :

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

1
2
3
Do While Selection.Find.Execute = true
    'Ton traitement à faire.....
Loop

[Alain-Ambazac]

Merci cerede2000! tout marche au poil.

[cerede2000]

Penses à voter (pouce vert) si les réponses te satisfont ça encourage