Discussion :

[Francine222]

Bonjour,

J'ai un document qui contient des coupures de sections avec des entêtes non reliées et je dois changer le logo qui se trouve dans toutes les entêtes. Que dois-je ajouter à mon code pour que ça fonctionne. Je ne sais jamais combien de sections il y aura, donc il faut une répétition jusqu'à la fin.

Voici le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Selection.HomeKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Delete Unit:=wdCharacter, Count:=1
    Dialogs(wdDialogInsertPicture).Show
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    ActiveDocument.ActiveWindow.ActivePane.View.NextHeaderFooter
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.PasteAndFormat (wdPasteDefault)

Merci.

[Sepia]

Bonjour Francine222,

Ton code est une bonne base mais tu dois le compléter avec 2 choses :

1. Tu dois prendre en compte que chaque section de Word peut avoir potentiellement 3 "sous-sections"
   
   • wdHeaderFooterPrimary pour la "sous-section" standard
   • wdHeaderFooterEvenPages pour la "sous-section" des pages impaires (en cas de définition d'un entête différent pour les pages paires/impaires)
   • wdHeaderFooterFirstPage pour la "sous-section" de la 1ere page (en cas de définition d'un entête différent pour la 1ere page)
2. La boucle sur toutes les sections dont le nombre est dans
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   ActiveDocument.Sections.Count

Si tu as besoin de plus d'infos, n'hésite pas.

@+

[Francine222]

J'ai continué à travailler sur mon code hier et j'ai réussi à faire en sorte que tous les logos se modifient avec le nouveau choisi. Parcontre, lorsque le code a effectué la dernière modification il donne un message d'erreur sur la ligne 12.

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
1   Selection.HomeKey Unit:=wdStory
2   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
3   Selection.Delete Unit:=wdCharacter, Count:=1
4   Dialogs(wdDialogInsertPicture).Show
5   Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
6   Selection.Copy
7   ActiveWindow.ActivePane.View.NextHeaderFooter
8  
9   Do
10     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
11     Selection.PasteAndFormat (wdPasteDefault)
12     ActiveWindow.ActivePane.View.NextHeaderFooter
13  Loop
14   
15  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Comment fait-on pour lui dire que s'il n'y a plus d'entête de passer à la ligne 15. Je ne sais pas comment écrire un code en cas d'erreur OU comment faire pour un Loop Until (Loop Until NextSection = False ???)

Merci pour ton aide.

[Sepia]

Salut Francine222,

Oui, un truc comme ça (Loop Until NextSection = False ???), ce serait bien mais Word ne permet pas de tester mais en revanche Word sait calculer le nombre de sections : ActiveDocument.Sections.Count, donc il suffit de vérifier que ton compteur n'est pas le dernier pour appeler l'instruction nextHeader...

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
 
   Selection.HomeKey Unit:=wdStory
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.Delete Unit:=wdCharacter, Count:=1
   Dialogs(wdDialogInsertPicture).Show
   Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Copy
 
   For aI = 1 to ActiveDocument.Sections.Count
       Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
       Selection.PasteAndFormat (wdPasteDefault)
       if aI < ActiveDocument.Sections.Count Then
           ActiveWindow.ActivePane.View.NextHeaderFooter
       End If
  Next
 
  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

@+

[Francine222]

Bonjour Sepia

J'ai ajusté mon code, il ne me reste plus que la partie des sous-sections, je ne sais pas comment le faire, peux-tu me donner un coup de main. J'ai aussi remarqué que lorsque je clique sur OK pour fermer le userform ça prend maintenant un temps fou, je dois même parfois cliquer une deuxième fois pour qu'il continue et ferme.

Merci.