Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

Si chaque page est indépendante, il faut simplement ajouter un saut de section page paire (ou impaire selon le document) à la fin de chaque page, au fur et à mesure de la saisie.

Si, au contraire, il s'agit d'un document dont le texte est continu, mais uniquement sur les pages impaires (par exemple), une macro est nécessaire. Tapez donc votre texte normalement sans vous préoccuper des sauts de page. Exécutez ensuite la macro suivante une fois que tout le document est réellement terminé.

Au cas où, après coup, vous devez modifier le texte avec des ajouts et suppressions, vous devrez supprimer tous les sauts de pages et relancer la macro. Pour supprimer tous les sauts de page, c'est très simple et très rapide avec un Recherche-Remplace (Rechercher ^b et remplacer par rien).

Sub sauts_page()
'macro écrite par m@rina
Dim nombre, nombre2
Selection.HomeKey Unit:=wdStory
nombre = Selection.Information(wdNumberOfPagesInDocument)
nombre2 = 1
Do While nombre2 < nombre
nombre2 = Selection.Information(wdActiveEndPageNumber)
With Selection
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
.InsertBreak Type:=wdPageBreak
End With
Loop
End Sub
 

Statistiques

Aujourd'hui1161
Hier2521
Cette semaine11575
Ce mois29655
Total depuis 200410765063

38
visiteurs actuellement en ligne