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