[WD-2003] Supprimer tout sauf les phrases débutant par

[jeanluc0]

Bonjour forum,

mon problème est toujours en relation avec mons post: "simplifier des textes" où ma VBA progresse lentement mais surement.

Voilà, j'aimerais savoir s'il est possible de supprimer dans un texte toutes les phrases sauf les phrases débutant par l'un des ces mots suivants:

Vent
Avertissement
FQCN73.

Je vous remercie pour votre patience,
Jean-Luc

[carden752]

Bonjour,

Pourquoi ne pas copier (soit temporairement ou définitivement) ces phrases dans un autre fichier ?
Est-ce une solution convenable?
Ou il y a d'autres parties à conserver?
C'est plus simple d'extraire des phrases que de supprimer ce qui est autour.

[jeanluc0]

Bonjour,

Code :

1
2
Pourquoi ne pas copier (soit temporairement ou définitivement) ces phrases dans un autre fichier ?
Est-ce une solution convenable?

Je n'avais pas imaginé que copier dans un autre fichier était une option.
C'est effectivement une option très intéressante.

Ou il y a d'autres parties à conserver?

En fait, il y a aussi le nom des secteurs à conserver et la ligne qui indique la fin du bulletin. Mais je n'ai pas trop élaboré ici car je me suis dit qu'avec 1 ou 2 exemples, je pourrais m'occuper de faire le reste moi-même.

Jean-Luc

[carden752]

Bonjour,

Bon courage, et si tu as un point précis que tu ne comprends pas ou besoin d'un conseil n'hésites pas.
C'est bien de voir des gens motivés pour apprendre et qui essaye d'eux même.
Cela change de ceux qui veulent une réponse toute prêtehttp://www.developpez.net/forums/ima...n_confused.gif

[Heureux-oli]

Salut,

Les paragraphes d'un document forment une collection.
On peut faire facilement une boucle sur les membres de cette colleection.

Code :

1
2
3
4
5
Dim pAra As Paragraph
 
For Each pAra In ActiveDocument.Paragraphs
 Debug.Print pAra.Range.Words(1)
Next pAra

Il ne te reste qu'a faire un test et en fonction du test supprimer ou copier ce qui te convient.

[Sepia]

Envoyé par jeanluc0

Bonjour,

Code :

Je n'avais pas imaginé que copier dans un autre fichier était une option.
C'est effectivement une option très intéressante.

Non tu as bien raison ce n'est pas une bonne option : en effet tu passes d'un document Word à un... document Word pour effectuer ton traitement. Il n'y a pas de changement. En revanche, sauvegarder peut avoir de l'intérêt par lui-même, parce tu veux garder ton document initial par exemple. Mais faire un copier/coller pour travailler dans un document Word n'a aucune raison en soi. As-tu fait ce que Heureux-Oli t'a conseillé (faire un diagramme des cas et de ce que tu veux faire à chaque fois = on appelle ça un organigramme en informatique) ? Si ce n'est pas le cas, écoute les conseils qu'on te propose me semble la moindre des choses et comme souvent, je pense qu'Heureux-oli a raison. Actuellement tu sais vaguement ce que tu veux, sache qu'informatique et n'auras pas "vaguement de réponses", ton algo marche ou pas (sous certaines conditions).

Maintenant ce n'est pas grave, la forme de ton algo n'est pas le problème (laisse ça aux informaticiens super spécialistes). Ecris ton cas et ce que tu fais à chaque fois, après on pourras regrouper. Exemple de cas : Si mon paragraphe contient "Pluie", je le supprime... Lorsque tu les auras tous, on pourra t'aider à structurer ton algo (et non pas le faire au fur et à mesure en fonction de ce que tu auras oublié). Mais sache que tu peux commencer par des cas simples/standards (proches de ce que tu as décrit) puis que tu peux enrichir. Mais si tu n'as pas pris les cas de base dès le départ, tu risques de recommencer ta macro souvent, et pas de l'enrichir simplement.

En fait, il y a aussi le nom des secteurs à conserver et la ligne qui indique la fin du bulletin. Mais je n'ai pas trop élaboré ici car je me suis dit qu'avec 1 ou 2 exemples, je pourrais m'occuper de faire le reste moi-même.

Jean-Luc

Non des exemples ne t'aide pas dans ton analyse des choses à faire, ils permettent juste de vérifier que les cas sont traités.

Fais l'effort de faire ton algo, nous on fait bien l'effort de te répondre

@+