Macro VBA génerant un document Word - Pb de numero de puces [Résolu]

Messages postés
32
Date d'inscription
jeudi 7 septembre 2006
Dernière intervention
22 avril 2009
- 16 janv. 2009 à 16:10 - Dernière réponse :
Messages postés
103
Date d'inscription
lundi 10 mai 2004
Dernière intervention
10 mars 2010
- 6 févr. 2009 à 07:37
Bonjour
J ai développé une macro VBA qui génère en sortie un
document Word qui concatène l'ensemble des documents words trouves dans
une directory donnée
Chacun des documents de cette directory
comporte plusieurs sections et le texte inclu dans ces sections
comprend souvent des puces numerotées (je precise non manuelles)
Mon document global genere en sortie  a les puces mal numerotees
Exemple:
Document1
 Section 1
   1) blablabla
   2) blablabla
   3) blablabla
   4) blablabla
 Section 2
   1) blabla
   2) blabla
   3) blabla

Document2
 Section 1
   1) blablabla
   2) blablabla

 Section 2
   1) blabla
   2) blabla

Le document global genere en sortie par la macro concatene les 2
documents cites ci-dessus et hélas me numerote les puces de facon
continue donnant:

LE DOCUMENT GLOBAL GENERE PAR LA MACRO se presente ainsi-->
Document1
 Section 1
   1) blablabla
   2) blablabla
   3) blablabla
   4) blablabla
 Section 2
   1) blabla
   2) blabla
   3) blabla
Document2
 Section 1
   5) blablabla                     au lieu de 1)
   6) blablabla                     au lieu de 2)

 Section 2
   4) blabla                         au lieu de 1)
   5) blabla                         au lieu de 2)

Vous transposez ça à une concaténation de 50 documents les numéros de puces deviennent vite ingérables
Merci pour votre aide Je ne m en sors pas
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
160
Date d'inscription
lundi 18 février 2008
Dernière intervention
8 janvier 2010
- 16 janv. 2009 à 16:27
3
Merci
Pourais-tu nous donner le code de ta macro qui génère ce fichier s.v.p

Merci Supra3000 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de Supra3000
Meilleure réponse
Messages postés
32
Date d'inscription
jeudi 7 septembre 2006
Dernière intervention
22 avril 2009
- 16 janv. 2009 à 16:48
3
Merci
Un peu compliqué de tout donner puisqu en fait elle est lancée depuis Excel et qu elle se sert d un template .dot deja préformaté du document a générer en sortie
Néanmoins le nerf de la guerre se trouve dans le loop suivant:
                    Wrd.Documents(Nom_doc_sortie).Select
                    Wrd.Selection.EndKey Unit:=wdStory
                    Wrd.Selection.InsertFile Filename:=Nomd, Range:="", _
                    ConfirmConversions:=False, Link:=False, Attachment:=False
Nomd etant le nom du document à inserer (sur mon exemple Document1 et Document2)

Merci d avance

Merci helpvb 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de helpvb
Messages postés
103
Date d'inscription
lundi 10 mai 2004
Dernière intervention
10 mars 2010
- 6 févr. 2009 à 07:37
0
Merci
L'enregistreur de Macro de Word indique les propriétés suivantes :
            With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1).StartAt = 1
Mais comme vous dites que votre macro est faite dans Xls, je ne suis pas sur que ça soit exactement ce que vous cherchiez.

Bertrouf
Commenter la réponse de bertrouf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.