Impression Word Filtré [Résolu]

[sofinf]

Bonjour tous le monde,

voila j'ai un fichier word , qu'est composé de 180 pages , mon problème c'est que je veux imprimer uniquement les pages qui contient un mot particulier( je veux un filtre d'impression des pages)


merci pour votre aides

[Heureux-oli]

C'est possible.
quel est donc ce mot si particulier qui mérite une impression.

[sofinf]

Il n y a pas un mot particulier , mon but c'est d'economiser l'impression et n'imprimer que les pages que je veux ,

[ouskel'n'or]

Bonjour sofinf,
Vois si ça te convient

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub lamacro()
Dim fin As Boolean
dim LeMot$, NoPagesAimprimer$
LeMot = "Le bon mot"
    selection.HomeKey Unit:=wdStory
    with selection.find
        .Text = LeMot
        .Forward = True
        .Wrap = wdFindContinue
    end with
    do while not fin
        fin = Selection.Find.Execute = False
        if not fin then
            NoPagesAimprimer = NoPagesAimprimer & ";" & Selection.Information(wdActiveEndPageNumber)
        end if
    Loop
    NoPagesAimprimer = right(NoPagesAimprimer, len(NoPagesAimprimer) - 1)
    Application.PrintOut Pages:=NoPagesAimprimer
end sub

Tu peux tester pour moi ?
A+

[steffguibo]

Je suis extrèmement interressé par cette macro car j'ai la même problématique, imprimer uniquement suivant un mot les pages d'un document

[Heureux-oli]

Pour éviter d'avoir l'impression de toutes les pages, la ligne PrintOut doit être modifiée.

Code :

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Pages:=NoPagesAimprimer

[steffguibo]

ça marche