Cette macro permet d'imprimer une plage de page d'un document en fonction des résultats de deux recherches, la première pour la page de début et la seconde, pou la page de fin.
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
32 Sub ImprimerCertainesPages() 'Déclaration des variables en Variant Dim intDeb Dim intFin 'Intitialisation des variables à 0 intDeb = 0 intFin = 0 'Déplacement du point de sélection au début du document Selection.HomeKey unit:=wdStory 'Première recherche With Selection.Find .Text = "Première" .Execute End With 'Récupération de la page intDeb = Selection.Information(wdActiveEndPageNumber) 'Retour au début Selection.HomeKey unit:=wdStory 'Seconde recherche With Selection.Find .Text = "Dernière" .Execute End With 'Récupération de la page intFin = Selection.Information(wdActiveEndPageNumber) 'Impression de la plage de page ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=CStr(intDeb), to:=CStr(intFin) End Sub
Partager