Word fusion et agrafage

taunis -  
85stl Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai 1000 courriers de 4 pages chacun. Le publipostage en soi ne me pose pas de problème.
Par contre, je n'arrive pas à agrafer par 4.
Le problème c'est que quand on fait un publipostage, Word considère le
résultat comme un seul document, donc si agrafage il y a, ce sera l'ensemble
des pages, or ce je veux, c'est que chaque lettre soit agrafée-1000 agrafages de 4 pages.

Un autre forum me dit que c'est impossible sinon de passer par une programmation; ce dont je suis incapable

Bref quelqu'un aurait-il une solution ?

Merci
A voir également:

2 réponses

Réponse 1 / 2
m@rina Messages postés 23878 Date d'inscription   Statut Contributeur Dernière intervention   11 462
 
Bonsoir,

Il faut lancer l'impressiion autant de fois que tu as de sections. C'est ce que fait la macro suivante, en utilisant les paramètres définis de l'imprimante active : 

Sub imprim() 
Dim ntotal 
ntotal = ActiveDocument.Sections.Count 
For x = 1 To ntotal 
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="s" & x 
Next 
End Sub


m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
1
m@rina Messages postés 23878 Date d'inscription   Statut Contributeur Dernière intervention   11 462
 
Si tu veux auparavant tester pour les deux premières sections par exemple, remplace
For x = 1 To ntotal
par
For x = 1 To 2

m@rina
0
Réponse 2 / 2
85stl Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   1
 
merci pour le tip

mais j'obtiens le résultat 1 fois section par section, une autre groupée
imprimante utilisée : photocopieur Konica Minolta série Bizhub
1