Niveaux hiérarchiques : rechercher remplacer

Version imprimable

11/09/2020, 10h38
jacquesfranck

Niveaux hiérarchiques : rechercher remplacer

Bonjour,

Je travaille assez régulièrement sur les niveaux hiérarchiques, mais si je veux faire par exemple rechercher tel niveau et remplacer par un autre word ne le prend pas en compte....

et aussi bien sur si je fais une macro ça ne fonctionne pas...

Si quelqu'un a une idée et pourquoi ça ne fonctionne pas Merci :)
11/09/2020, 14h50
m@rina

Bonjour,

Je n'avais jamais vu ce besoin, du coup je n'y avais jamais pensé.

Mais, quand on y réfléchit, je ne suis pas étonnée, car ce sont les niveaux hiérarchiques qui gèrent le plan d'un document. Si l'on commence via RR par remplacer un niveau par un autre, le plan risque de se casser la figure ! Imaginons qu'on remplace un niveau 2 par un niveau 3, que deviennent les niveaux 3 qui dépendaient du niveau 2 original ? et inversement, etc.

D'autant plus qu'il y a des fonctionnalité pour ça : le volet Navigation et le mode Plan.

m@rina

Merci, oui effectivement, mais je me sers du niveau pour faire des modifications sur des zones bien précises.... lorsque je veux reformer d'une certaine manière un document....

Aussi par exemple si je construit une macro en disant de changer le niveau 5 par du 8 dans la macro j'ai :

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
Sub zzzzzz()
'
' zzzzzz Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .OutlineLevel = wdOutlineLevel5
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .OutlineLevel = wdOutlineLevel8
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Mais ça ne fait absolument dans le doc.... le niveau reste à 5...

Merci

11/09/2020, 15h15
m@rina

Je ne peux rien ajouter d'autres... Word est fait comme ça, et au risque de me répéter c'est plutôt logique.

En revanche ce qui est illogique, c'est de laisser une possibilité qui ne fonctionne pas ! Que tu le fasses à la main dans le RR ou via une macro, c'est pareil.

Je pense que ton utilisation de word n'est pas très... wordienne !! :D
Normalement on utilise plutôt des styles. Et dans ce cas il n'y a pas de problèmes. Si tu as un style xx de niveau 5 et un style yy de niveau 8, tu peux faire un RR en remplaçant le style xx par le style yy.

m@rina