'afficher en tete pied de page 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 'signet ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="tete" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = True End With ' ne plus afficher l'en tete et le pied de page 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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question