[WD-2003] simplifier des textes

[jeanluc0]

Bonjour,

j'ai une série de textes (une centaine de prévisions) dont je ne voudrais garder que la portion se rapportant à la date du message, les endroits, les avertissements et les vents. Est-il possible de traiter cela avec une macro?.
Je fournis en exemple un fichier du message brut.

Le surlignage en jaune serait le texte que j'aimerais conserver.

Idéalement, les mots tels que: "ce, cet, puis, vers" devraient être supprimés. De plus, les mots tels que: "diminuant, devenant, augmentant, virant" devraient tous être remplacés par: "bcmg". Finalement, les mots: "APRES-MIDI" et "AVANT-MIDI" devraient être réduit à PM et AM.

Le but de l'exercice étant d'afficher chaque prévision sur une page unique.
Ainsi, un saut de page devrait précéder chaque nouvelle prévision
(une page devrait toujours débuter par: FQCN73 LHOJ JJMMSS).

Merci en avance
Jean-Luc

[Heureux-oli]

Salut,

Je pense que tu peux oublier.

Comment savoir quoi garder de ce texte mis à part le fait qu'il soit en jaune ?

[jeanluc0]

Bonsoir,

Dans ce cas, est-il possible qu'une macro puisse supprimer:
- les 6 prochaines lignes suivant la ligne où elle rencontrera l'expression:
"FQCN73"
- supprimer toutes les lignes vides.

Idéalement,
- supprimer tous les mots tels que: "ce, cet, puis, vers"
- remplacer les mots: "diminuant, devenant, augmentant, virant" par "bcmg"
- remplacer les mots: "APRES-MIDI" et "AVANT-MIDI" par PM et AM.

Finalement, reformater le texte afin d'afficher chaque prévisions sur une page unique (ie tout le texte qui suit la ligne FQCN73).
Bref, est-ce qu'il y a moyen d'arriver à mon objectif final?

Merci de répondre à mes questions
Jean-Luc

[carden752]

Bonjour,

Pour les six prochaines lignes suivant un texte, c'est possible ainsi que pour les remplacements de mots par d'autres.

Par contre, comme Heureux-Oli, comment sait-on la partie à conserver? Sera-t-elle toujours surligner en jaune, les 5 premières lignes, avant un mot, une phrase précise?

Il nous faut une règle stricte pour pouvoir automatiser cette tâche.

[jeanluc0]

Bonjour,

... et désolé pour ma réplique tardive. Voilà, tout d'abord j'aimerais préciser que dans le fichier fourni initialement, les plages en jaune ont été rehaussées par moi pour indiquer le résultat espéré suite à l'application de la macro.

Maintenant, tel que suggéré, j'ai fait refait mes devoirs et j'ai analysé tous les textes de prévision. Outre les 6 lignes suivant l'en-tête du message, il y a aussi la dernière portion des prévisions de chaque secteur qui doit être supprimée.

Cette dernière portion débute toujours par l'un de ces mots:
Risque, Faible, Pluie, Maximum, Minimum, Température, Quelques, Averses,
Brouillard, Visibilité, Embruns, Reste.
Ainsi, à chaque fois que l'un de ces mots est rencontré, tout le texte qui suit doit être supprimé jusqu'au prochain paragraphe.

Enfin, je suis heureux de savoir qu'on peut remplacer certains mots par des abréviations (fournies précédemment). Peut-on finalement reformater le texte
de façon à minimiser son espace.

Merci d'avance,
Jean-Luc

[jeanluc0]

Bonjour,

possible que ma requête initiale ait été trop compliquée à saisir, ce qui expliquerait le peu de réponse. Pourtant, à la lueur de la réplique carden752, je demeure convaincu que je peux arriver à mes fins. Le problème, c'est je ne connais pas grand chose au commandes VBA dans Word.

Alors je récidive avec des questions plus directes. Dane le fichier joint essai_2

1. Je veux toujours éliminer les 6 lignes suivantes: FQCN73.
2. Aussitôt que le mot: "pluie" ou "faible" est rencontré, tout le reste du paragraphe doit être éliminé.
3. "Avertissement" et "coups de vent" doivent être soulignés en rouge
4. Tous les mots: "ce" doivent être éliminés.
5. Tous les mots: "apres-midi" doivent être remplacés par "PM".
6. Enfin, les paragraphes commençant par "vent" doivent prendre le moins de ligne possible.

Je fournis un fichier en exemple avec des commentaires supplémentaires.

Je vous remercie en avance

Jean-Luc

[carden752]

Bonjour,

Meilleurs voeux pour cette année.

Code :

1
2
3
4
5
6
7
8
9
10
Sub test()
Selection.HomeKey unit:=wdStory
Do While (Selection.Find.Execute(FindText:="FQCN73", Forward:=True, Wrap:=False))
 
Selection.GoToNext what:=wdGoToLine
Selection.MoveDown unit:=wdLine, Count:=6, Extend:=wdExtend
Selection.Delete
 
Loop
End Sub

Cette macro doit faire le 1°, c'est à dire supprimer les 6 lignes qui suivent le mot FQCN73

Rebonjour,

Et voici le code pour la suppression d'un paragraphe après la recherche de pluie, je te laisse l'adapter pour le mot faible

Code :

1
2
3
4
5
6
7
8
9
Sub pluie()
Dim r As Range
Selection.HomeKey unit:=wdStory
Do While (Selection.Find.Execute(FindText:="pluie", Forward:=True, Wrap:=False))
Selection.Expand unit:=wdParagraph
Selection.Delete
 
Loop
End Sub

Et encore un petit bout, le surlignage en rouge, je te laisse l'adapter pour les autres mots

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub surlignage()
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "Avertissement"
        .Replacement.Text = "Avertissement"
        .Forward = True
        .Wrap = False
        .MatchCase = False
        .Replacement.Highlight = wdColorRed
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Options.DefaultHighlightColorIndex = wdRed
    Selection.Range.HighlightColorIndex = wdRed
    Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub

Bonjour,

Tu dois maintenant pouvoir te débrouiller avec la fonction find et replacement pour supprimer les mots CE et remplacer après midi

En espérant t'avoir aidé

[jeanluc0]

Bonjour,

Voilà, en ce qui concerne la portion du code: "suppression d'un paragraphe après la recherche de pluie"

Code :

1
2
3
4
5
6
7
Sub pluie()
Selection.HomeKey unit:=wdStory
Do While (Selection.Find.Execute(FindText:="pluie", Forward:=True, Wrap:=False))
Selection.Expand unit:=wdParagraph
Selection.Delete
 
Loop

J'ai constaté que la macro n'efface pas le paragraphe mais la ligne courante où se trouve le mot "pluie".

Pour ce qui est de la macro qui fait du surlignage, j'ai tenté de la complexifier de telle sorte que lorsqu'un "avertissement de coups de vent" est trouvé, il y a surlignage en jaune, lorsqu'un "avertissement de vent de tempete" est trouvé, il y a surlignage en rouge. Voici mon code:

Code :

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
27
28
29
30
31
32
33
34
35
36
37
'Souligner l'expression: "Avertissement de coups de vent en jaune
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
    .Text = "Avertissement de coups de vent"
    .Replacement.Text = "Avertissement de coups de vent"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
Selection.Find.Execute Replace:=wdReplaceAll
 
'Souligner l'expression: "Avertissement de vent de tempete en rouge
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Avertissement de vent de tempete"
        .Replacement.Text = "Avertissement de vent de tempete"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Options.DefaultHighlightColorIndex = wdRed
    Selection.Range.HighlightColorIndex = wdRed
    Selection.Find.Execute Replace:=wdReplaceAll

Pour une raison obscure, le surlignage en rouge ne se fait pas? J'ai n'ai pas encore trouvé la raison.

Merci de m'aider
Jean-Luc

[carden752]

Bonjour,

c'est faux elle efface le paragraphe mais ton paragraphe correspond à la ligne courante (regarde en affichant les marques de paragraphes). Tu verras à la fin de la ligne une marque de fin de paragraphe.

Pour ce qui est de la macro qui fait du surlignage, j'ai tenté de la complexifier de telle sorte que lorsqu'un "avertissement de coups de vent" est trouvé, il y a surlignage en jaune, lorsqu'un "avertissement de vent de tempete" est trouvé, il y a surlignage en rouge.

C'est cette ligne à changer pour la couleur de surlignage du texte de remplacement

.Replacement.Highlight = wdColorRed

Comme je l'avais mis dans mon précédent message

Code :

1
2
3
4
5
6
7
8
9
10
11
12
    With Selection.Find
        .Text = "Avertissement"
        .Replacement.Text = "Avertissement"
        .Forward = True
        .Wrap = False
        .MatchCase = False
        .Replacement.Highlight = wdColorRed
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

[jeanluc0]

Bonjour Christophe,

vouis avez raison, j'avais omis une ligne de code concernant le surlignage. Maintenant, tout fonctionne bien de ce côté.

En ce qui concerne la suppression du paragraphe suivant le mot "pluie", j'avoue ne pas comprendre (peut-être que la définition d'un paragraphe est différente dans WORD?). J'ai joint un fichier où
en noir: c'est un simple texte soumis à la macro pluie
en bleu: le résultat de la macro
en vert: le résultat espéré.

Pouvez-vous regarder ça de plus près et m'expliquer
Encore merci
Jean-Luc

[carden752]

Bonjour,

Je vois qu'une seule possibilité :

1 - rechercher 2 marques de paragraphe consécutives après pluie et supprimer jusque la.

Code :

selection.find.text="^p^p"

A adapter pour ton besoin

[Heureux-oli]

Salut,

En Word un paragraphe est une série de mots qui se termine par le symbole ¶
Ces mots peuvent être sur plusieurs lignes.
On obtient le symbole ¶ par une pression sur la touche Entrée ou Enter.

J'ai jetté un coup d'oeil à ton fichier.
Si le mot pluie n'est suivi que d'un seul paragaphe ? ou de trois paragraphes ??

En fait tu souhaiterais que la macro pense comme tu le ferais, mais elle ne peut que faire des actions répététives.

Essaie juste pour voir de faire un organigramme de ce que le code doit faire.