Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    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

  2. #2
    Membre averti
    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

  3. #3
    Candidat au Club
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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

  4. #4
    Membre averti
    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 !!
    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

###raw>template_hook.ano_emploi###