Boucle dans une macro word

causek -  
m@rina Messages postés 27617 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'ai un problème pour boucler de la page courante à la dernière page pour modifier le header en le mettant en 'Link to previous'.

Merci d'avance pour votre aide précieuse,

1 réponse

  1. m@rina Messages postés 27617 Date d'inscription   Statut Modérateur Dernière intervention   11 563
     
    Bonjour,

    Et si tu nous disais exactement ce que tu veux faire ? et nous donner le code que tu as écrit par la même occasion...

    m@rina
    0
    1. causek
       
      Bonjour,

      Voici le bout de code:
      (Suis en Word 2010)

      Sub Macro3()
      '
      ' Macro3 Macro
      '
      '
      Pagnr = Selection.Information(wdActiveEndPageNumber)
      TotPages = Selection.Information(wdNumberOfPagesInDocument)
      Do While Pagnr <= lastpage
      If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      ActiveWindow.Panes(2).Close
      End If
      If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
      ActivePane.View.Type = wdOutlineView Then
      ActiveWindow.ActivePane.View.Type = wdPrintView
      End If
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
      Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
      LinkToPrevious
      ActiveWindow.ActivePane.View.NextHeaderFooter
      ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
      Loop
      End Sub

      Vous remerciant,
      0
    2. m@rina Messages postés 27617 Date d'inscription   Statut Modérateur Dernière intervention   11 563
       
      Et tu veux faire quoi très exactement ?
      Parce que déjà les en-têtes fonctionnent par section et non pas par page.
      Peux tu être plus précis sur la finalité de la macro ?
      0