OVH Cloud OVH Cloud

Remplacement par un level

5 réponses
Avatar
Greg Etition
Bonjour a tous !

J'ai du texte brut avec des paragraphes de type 1., 1.1., ext ...
et je souhaite avoir un formatage de la ligne

Devant chaque paragraphe j'ai mis une reference de type zone1 pour level1,
zone2 pour level2 ext ...
c'est pour dire au find de me remplacer toute les zone1 en
"wdOutlineLevel1" ext ...

Le problème dans la macro c'est ".Replacement =" n'est pas compatible avec
"(Selection.Range.Paragraphs.OutlineLevel = wdOutlineLevel2)"

'----------La macro------------
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "zone1"
.Replacement = (Selection.Range.Paragraphs.OutlineLevel =
wdOutlineLevel2)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
'---------Fin de macro ---------

y a t'il un moyen que cela fonctionne ?
exist-il d'autre solution ?

Merci d'avance !

Cordialement

5 réponses

Avatar
geo
-----Message d'origine-----
Bonjour a tous !

J'ai du texte brut avec des paragraphes de type 1., 1.1.,
ext ...

et je souhaite avoir un formatage de la ligne

Devant chaque paragraphe j'ai mis une reference de type
zone1 pour level1,

zone2 pour level2 ext ...


Si j'ai bien compris tu as :
zone1 1. texte du paragraphe a
zone2 1.1. texte du paragraphe b
zone2 1.2. texte du paragraphe b
zone1 2. texte du paragraphe b

Il suffit de remplacer (Edition remplacer) zone1 sans
format par rien en style que tu veux.
Tout ton paragraphe passe dans ce style et ta référence
est effacée :-)

A+

Avatar
Greg Etition
Merci pour la reponse :)

Pour l'exemple que tu as donné c'est complement ça

Je vais reprendre cet exemple -
zone1 1. texte du paragraphe a
zone2 1.1. texte du paragraphe b
zone2 1.2. texte du paragraphe b
zone1 2. texte du paragraphe b

Effectivement les mots "zone1" et "zone2" sont à effacer et à remplacer par
sont paragraphes
le probleme que j'ai, c'est que 1.,1.1, 1.2 ne sont pas mis

je vais donner un exemple :
zone1 TEXTE
zone2 TEXTE
zone1 TEXTE

le resultat obtenu est
+ Texte
*Texte
+Texte

Et je souhaiterais avoir :
1. texte
----> 1.1. texte
2. texte

Avec la macro que j'ai donné (que j'ai modifié actuelement) ça fonctionne
mais le resultat n'est pas celui souhaité j'ai que des + (aux paragraphes)
au lieu de 1. ou 1.1, le formatage n'est pas fais !


Sinon j'ai testé la methode que tu m'as donnée, ça ne fonctionne pas, j'ai
bien les 1., 1.1., 1.2., ext mais la ligne n'est pas formatée, et je l'ai
obtien pas dans mon menu :'(



Merci encore a tres bientot
(bonne fin de journée Geo :o) )
Avatar
Circé
Ben Geo, heureusement que tu fais la traduction, car moi j'avais
abandonné à la 2e ligne !!! :-D

Circé


-----Message d'origine-----
Bonjour a tous !

J'ai du texte brut avec des paragraphes de type 1., 1.1.,


ext ...

et je souhaite avoir un formatage de la ligne

Devant chaque paragraphe j'ai mis une reference de type


zone1 pour level1,

zone2 pour level2 ext ...



Si j'ai bien compris tu as :
zone1 1. texte du paragraphe a
zone2 1.1. texte du paragraphe b
zone2 1.2. texte du paragraphe b
zone1 2. texte du paragraphe b

Il suffit de remplacer (Edition remplacer) zone1 sans
format par rien en style que tu veux.
Tout ton paragraphe passe dans ce style et ta référence
est effacée :-)

A+






Avatar
Anacoluthe
Bonjour !

'Greg Etition' nous a écrit ...
J'ai du texte brut avec des paragraphes de type 1., 1.1., ext ...
et je souhaite avoir un formatage de la ligne
Devant chaque paragraphe j'ai mis une reference de type zone1 pour level1,
zone2 pour level2 ext ...
c'est pour dire au find de me remplacer toute les zone1 en
"wdOutlineLevel1" ext ...
'----------La macro------------ (cut)
y a t'il un moyen que cela fonctionne ?
exist-il d'autre solution ?


Peut-être dire tout de suite que votre projet est
réalisable SANS MACRO !!!

Il suffit de Rechercher-Remplacer:
Avec caractères spéciaux
Rechercher: (zone1)(*^013)
sans attributs
Remplacer par: 2
mise en forme : Style Titre 1

En clair : remplacer 'zone1 - n'importe quoi - paragraphe'
sans format particulier par le même 'n'importe quoi - paragraphe'
formaté en style 'Titre 1' numéroté hiérarchisé

Pour la macro, il y a l'enregistreur ...

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

[HS] Combien de points sur ma carte d'AMIS ?

Avatar
Geo
Bonjour Circé


Ben Geo, heureusement que tu fais la traduction, car moi j'avais
abandonné à la 2e ligne !!! :-D


J'aime bien la difficulté, c'est pour ça que je fais des macros
superfétatoires de temps à autre :-)