none
Word : mise en forme en boucle RRS feed

  • Question

  • Bonjour,

    J'aimerai faire une mise en forme en boucle sur un doc word que je recupere en copiant collant une colonne plus ou moins longue de TCD.

    J'ai essaye de faire un truc en boucle avec un compteur en me basant sur les mots tour, table ou visite.... sans success... je dois avouer que je n'y connais absolument rien...

    J'ai besoin de passer de ca :

    Table 2 - Boone Wim

    Tour 1

    Giraud Romain

    Visite GT3 + Objection Prix

    Tour 2

    Lavoise Jean-marie

    Visite Co-inf + Objection Prix

    Tour 3

    Di giacomo Benoit

    Visite GT3 + Objection M184

    Tour 4

    Gilbert Thierry

    Visite Co-inf

    Tour 5

    Foiret Emilien

    Visite Allegement + Objection Prix

    Tour 6

    Monbrun Raphael

    Visite Co-inf

    Tour 7

    Moran Angel

    Visite Co-inf  + Objection DOLU

    Tour 8

    Gressani Aldo

    Visite GT3 + Objection Prix

    a ca :

    Table 1 - Kollmann Maria

    v  Tour 1

    • Frering Eric
      • Visite GT3 + Objection M184

    v  Tour 2

    • Lopez Frederic
      • Visite Allegement + Objection Prix

    v  Tour 3

    • Hovsepian Thierry
      • Visite Co-inf + Objection Prix

    v  Tour 4

    • Dufaitre Eric
      • Visite Allegement

    v  Tour 5

    • Maillard Vincent
      • Visite Co-inf  + Objection DOLU

    v  Tour 6

    • Gressani Aldo
      • Visite Allegement + Objection Prix

    v  Tour 7

    • Hullot Christian
      • Visite GT3

    v  Tour 8

    • Dickinson Patrick
      • Visite Co-inf  + Objection DOLU

    (sans espace entre les lignes)

    Sachant que j'ai plusieurs pages comme ca avec un espace avant chaque 'Table", chaque groupe "Table + tours et infos" representant une fiche a mettre en forme. Je peux avoir 200 fiches.... donc quand j'en ai 30 je me le tape a la main mais 200 si ya moyen de faire autrement je prends...

    Need help !! :'(

    Idealement j'aimerai comprendre comment ca marche pour avoir l'impression d'etre un peu plus intelligente qu'une poule sans tete et parce que j'ai une autre version a mettre en forme - a peu pres le meme style.

    Voila merci d'avance !

    Ema

    dimanche 21 février 2016 09:39

Réponses

  • Bonjour,

    Voici une procédure qui a fonctionné pour moi.

    Première étape:

    • Créer quatre styles en utilisant les mises en forme déjà existantes. "Titre 1", "Puce 01", "Puce 02" et "Puce 03"

    Deuxième étape:

    • Ajouter la macro ci-après

    Troisième étape:

    • Exécuter la macro qui a pour objectif de parcourir tous les paragraphes du document puis de les mettre en forme en fonction du premier mot.

    Voici la macro

    Sub FormatageDeParagraphe()
    '
    ' Macro créée par Mehdi HAMMADI Le 21/02/2016
    ' Objetif : Appliquer un style particulier en fonction du premier mot d'un paragraphe
    '
    '
        Dim monParagraphe As Paragraph
        Dim PremierMot As String
        
        'parcour de tous les paragraphe
        For Each monParagraphe In ActiveDocument.Paragraphs
            
            'Ne prendre que les quatre lettres du premier mot du paragraphe
            PremierMot = Left(monParagraphe.Range.Words(1).Text, 4)
            
            'Appliquer le style approprié en fonction du premier mot
            If PremierMot = "Tabl" Then
                monParagraphe.Style = ActiveDocument.Styles("Titre 1")
            ElseIf PremierMot = "Tour" Then
                monParagraphe.Style = ActiveDocument.Styles("Puce 01")
            ElseIf PremierMot = "Visi" Then
                monParagraphe.Style = ActiveDocument.Styles("Puce 03")
            Else
                monParagraphe.Style = ActiveDocument.Styles("Puce 02")
            End If
        Next
        
    End Sub

    Bonne continuation.


    En espérant avoir pu rendre service (MehdiH)
    Retrouvez moi sur Office Users


    • Modifié Mehdi HAMMADI dimanche 21 février 2016 11:04
    • Marqué comme réponse EmaMCR dimanche 21 février 2016 18:09
    dimanche 21 février 2016 11:01

Toutes les réponses

  • Bonjour,

    Voici une procédure qui a fonctionné pour moi.

    Première étape:

    • Créer quatre styles en utilisant les mises en forme déjà existantes. "Titre 1", "Puce 01", "Puce 02" et "Puce 03"

    Deuxième étape:

    • Ajouter la macro ci-après

    Troisième étape:

    • Exécuter la macro qui a pour objectif de parcourir tous les paragraphes du document puis de les mettre en forme en fonction du premier mot.

    Voici la macro

    Sub FormatageDeParagraphe()
    '
    ' Macro créée par Mehdi HAMMADI Le 21/02/2016
    ' Objetif : Appliquer un style particulier en fonction du premier mot d'un paragraphe
    '
    '
        Dim monParagraphe As Paragraph
        Dim PremierMot As String
        
        'parcour de tous les paragraphe
        For Each monParagraphe In ActiveDocument.Paragraphs
            
            'Ne prendre que les quatre lettres du premier mot du paragraphe
            PremierMot = Left(monParagraphe.Range.Words(1).Text, 4)
            
            'Appliquer le style approprié en fonction du premier mot
            If PremierMot = "Tabl" Then
                monParagraphe.Style = ActiveDocument.Styles("Titre 1")
            ElseIf PremierMot = "Tour" Then
                monParagraphe.Style = ActiveDocument.Styles("Puce 01")
            ElseIf PremierMot = "Visi" Then
                monParagraphe.Style = ActiveDocument.Styles("Puce 03")
            Else
                monParagraphe.Style = ActiveDocument.Styles("Puce 02")
            End If
        Next
        
    End Sub

    Bonne continuation.


    En espérant avoir pu rendre service (MehdiH)
    Retrouvez moi sur Office Users


    • Modifié Mehdi HAMMADI dimanche 21 février 2016 11:04
    • Marqué comme réponse EmaMCR dimanche 21 février 2016 18:09
    dimanche 21 février 2016 11:01
  • trop bien ! ca marche nickel ! merci merci merci beaucoup !

    Je me sens comme une poule avec une tete maintenant ! :)))

    dimanche 21 février 2016 17:03
  • Content pour vous :)

    Merci de marquer la bonne réponse


    En espérant avoir pu rendre service (MehdiH)
    Retrouvez moi sur Office Users

    dimanche 21 février 2016 17:21