Word fusion et agrafage

Fermé
taunis - 3 août 2011 à 14:18
85stl Messages postés 1 Date d'inscription vendredi 24 mai 2013 Statut Membre Dernière intervention 24 mai 2013 - 24 mai 2013 à 16:28
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

m@rina Messages postés 20441 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 30 juin 2024 11 297
Modifié par m@rina le 4/08/2011 à 08:26
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 20441 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 30 juin 2024 11 297
4 août 2011 à 00:04
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
85stl Messages postés 1 Date d'inscription vendredi 24 mai 2013 Statut Membre Dernière intervention 24 mai 2013 1
24 mai 2013 à 16:28
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