OVH Cloud OVH Cloud

Macro pour réunir des paragraphes

7 réponses
Avatar
Jean-Claude
Bonjour,
C'est une première sur Word pour moi. Aussi excusez-moi si cette
question a déjà été posée ?
J'ai récupéré un texte très long (100aine de page) et à chaque ligne à
été rajouté une fin de paragraphe.
Retrouver manuellement les ancien paragraphe est plus que fastidieux.
Aussi ai-je eu l'idée de créer une macro que automatise le système.
Mon idée de base est la suivante.
Si la première lettre du premier mot du paragraphe est en minuscule
c'est qu'il faut lier ce paragraphe au précédent.
Il faut donc supprimer la marque du paragraphe précédent et rajouter un
espace.

Je connais bien Excel et ces macro mais là sur Word je patine un peu
espère avoir été clair.
Dans l'attente de vous lire, merci d'avance

--
A+
Jean-Claude

7 réponses

Avatar
Dédé
Salut Jean-Claude !

Et si tu faisait un rechercher/remplacer avec quelque bonne lecture de
l'aide et de la FAQ ?

FAQ :
http://faqword.free.fr

Dédé

"Jean-Claude" a écrit dans le message de
news:eDtySB%
Bonjour,
C'est une première sur Word pour moi. Aussi excusez-moi si cette
question a déjà été posée ?
J'ai récupéré un texte très long (100aine de page) et à chaque ligne à
été rajouté une fin de paragraphe.
Retrouver manuellement les ancien paragraphe est plus que fastidieux.
Aussi ai-je eu l'idée de créer une macro que automatise le système.
Mon idée de base est la suivante.
Si la première lettre du premier mot du paragraphe est en minuscule
c'est qu'il faut lier ce paragraphe au précédent.
Il faut donc supprimer la marque du paragraphe précédent et rajouter un
espace.

Je connais bien Excel et ces macro mais là sur Word je patine un peu
espère avoir été clair.
Dans l'attente de vous lire, merci d'avance

--
A+
Jean-Claude




Avatar
JièL Goubert
Bonjoir(c) Jean-Claude

réponse d'AMIS(*)

Rechercher ^13[a-z]
remplacer par " "
Cocher Caractère gérérique
Remplacer tout

--
JièL pas la
(*) AMIS : Anti Macros Inutilement Superfétatoires

Le 06/12/2004 23:11 vous avez écrit ceci :
Bonjour,
C'est une première sur Word pour moi. Aussi excusez-moi si cette
question a déjà été posée ?
J'ai récupéré un texte très long (100aine de page) et à chaque ligne à
été rajouté une fin de paragraphe.
Retrouver manuellement les ancien paragraphe est plus que fastidieux.
Aussi ai-je eu l'idée de créer une macro que automatise le système.
Mon idée de base est la suivante.
Si la première lettre du premier mot du paragraphe est en minuscule
c'est qu'il faut lier ce paragraphe au précédent.
Il faut donc supprimer la marque du paragraphe précédent et rajouter un
espace.

Je connais bien Excel et ces macro mais là sur Word je patine un peu
espère avoir été clair.
Dans l'attente de vous lire, merci d'avance


Avatar
Jean-Claude
| réponse d'AMIS(*)
|
| Rechercher ^13[a-z]
| remplacer par " "
| Cocher Caractère gérérique
| Remplacer tout
|
| --
| JièL pas la
| (*) AMIS : Anti Macros Inutilement Superfétatoires
Salut,
Superfétatoires est certes le mot juste.
Ceci dit, la recherche trouve bien ce que je veux, mais sélectionne le
caractère de paragraphe et la lettre.
Au remplacement il me supprime donc la lettre en rajoutant des
guillemets
Je patine toujours mais la pente est moins rude
A+
Jc
Avatar
Circé
Bonsoir Jean-Claude,

Je vais améliorer un peu la réponse de JièL :

Rechercher : (^13)([a-z])

Remplacer par : " "2

(" " : c'est juste une espace, faut pas mettre les "")

Circé
http://faqword.free.fr


Jean-Claude avait énoncé :
réponse d'AMIS(*)

Rechercher ^13[a-z]
remplacer par " "
Cocher Caractère gérérique
Remplacer tout

--
JièL pas la
(*) AMIS : Anti Macros Inutilement Superfétatoires
Salut,

Superfétatoires est certes le mot juste.
Ceci dit, la recherche trouve bien ce que je veux, mais sélectionne le
caractère de paragraphe et la lettre.
Au remplacement il me supprime donc la lettre en rajoutant des
guillemets
Je patine toujours mais la pente est moins rude
A+
Jc



Avatar
Jean-Claude
"Circé" a écrit dans le message de news:

| Bonsoir Jean-Claude,
|
| Je vais améliorer un peu la réponse de JièL :
|
| Rechercher : (^13)([a-z])
|
| Remplacer par : " "2
|
| (" " : c'est juste une espace, faut pas mettre les "")
|
| Circé
Salut,
En essayant ton amélioration, j'obtiens le message suivant :
Le texte de la zone Remplacer par contient un numéro de groupe qui
dépasse la plage.
En remplaçant le 2 par 1, cela insère un espace conserve le caractère de
paragraphe et supprime la lettre.
Bon je sors le piolet la pente redevient dure.
A+
Jc
Avatar
Circé
Cela devrait pourtant fonctionné ! J'ai testé ! ;-))

As-tu bien mis les parenthèses ?
Les parenthèses délimitent les occurences.
Dans la zone remplace, on met donc une espace suivie de la 2e occurence recherchée, la première étant supprimée.

Circé


Jean-Claude a formulé la demande :
"Circé" a écrit dans le message de news:

Bonsoir Jean-Claude,

Je vais améliorer un peu la réponse de JièL :

Rechercher : (^13)([a-z])

Remplacer par : " "2

(" " : c'est juste une espace, faut pas mettre les "")

Circé
Salut,

En essayant ton amélioration, j'obtiens le message suivant :
Le texte de la zone Remplacer par contient un numéro de groupe qui
dépasse la plage.
En remplaçant le 2 par 1, cela insère un espace conserve le caractère de
paragraphe et supprime la lettre.
Bon je sors le piolet la pente redevient dure.
A+
Jc



Avatar
Jean-Claude
"Circé" a écrit dans le message de news:

| Cela devrait pourtant fonctionné ! J'ai testé ! ;-))
|
| As-tu bien mis les parenthèses ?
| Les parenthèses délimitent les occurences.
| Dans la zone remplace, on met donc une espace suivie de la 2e
occurence recherchée, la première étant supprimée.
|
| Circé
|

Merci, vous êtes une vraie magicienne...
Jc qui cherche son chemin