Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    VBA Word préfixer et suffixer des paragraphes d'un style donné
    Bonjour,
    je cherche à programmer une macro qui parcourt un doc Word de manière séquentielle et effectue les opérations suivantes de "taggage" :
    A chaque changement de style :
    1- Si le style courant est "Exi_1" :
    - si le texte ne commence pas par "<ID>" alors :
    * insérer le texte "<ID>" puis paragraphe suivant (dans le style "Exi_1")
    * au prochain changement de style (quand on arrête le style "Exi_1"), insérer le texte "<END>" puis paragraphe suivant (dans le style "Exi_1")
    - sinon, si le texte commence déjà par "<ID>" :
    * rechercher le texte "<END>" qui suit
    * se positionner après, et continuer à parcourir

    2- si le style courant est "Exi_2" : idem que ci-dessus mais avec "Exi_2"

    Je suis habitué à faire du VBA pour Excel mais un peu dérouté par VBA pour Word... Merci d'avance pour votre aide.

  2. #2
    Expert éminent sénior
    Citation Envoyé par jwsystra Voir le message

    Bonjour,

    Pour commencer, regardez le tuto d'Olivier LEBEAU : https://heureuxoli.developpez.com/office/word/vba-word/
    Voir la méthode pour identifier un paragraphe.
    Pour identifier vos chaînes, regardez l'utilisation de Instr et pour sélectionner du texte et le remplacer, regardez SetRange.
    En résumé, pour faire ce que vous souhaitez, j'alimenterais une matrice à deux dimensions pour identifier toutes les occurrences avec 4 colonnes : style, Avec ou sans <ID>, caractère début, caractère fin / rapport au début de document. C'est pour cette raison qu'il faut commencer votre boucle par la fin.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Nouveau Candidat au Club
    Citation Envoyé par Eric KERGRESSE Voir le message
    Bonjour,

    Pour commencer, regardez le tuto d'Olivier LEBEAU : https://heureuxoli.developpez.com/of...word/vba-word/
    Voir la méthode pour identifier un paragraphe.
    Pour identifier vos chaînes, regardez l'utilisation de Instr et pour sélectionner du texte et le remplacer, regardez SetRange.
    En résumé, pour faire ce que vous souhaitez, j'alimenterais une matrice à deux dimensions pour identifier toutes les occurrences avec 4 colonnes : style, Avec ou sans <ID>, caractère début, caractère fin / rapport au début de document. C'est pour cette raison qu'il faut commencer votre boucle par la fin.
    Bon, c'est donc officiel, je lutte vraiment. Je n'arrive pas à comprendre la logique de parcours d'un document Word avec VBA.

    Merci pour le tuto, mais même avec celui-ci je ne m'en sors pas. Je n'arrive tout bêtement pas à insérer du texte tantôt avant, tantôt après le paragraphe que je regarde, avec entre autres des fins de paragraphes associées. Et je ne touche là qu'à la superficie de mon problème.
    Je n'ai même pas de code à vous exposer, le mien étant tellement désastreux.

    Mon idée :
    1- compter les paragraphes de mon doc : nb_paragraphes = ActiveDocument.Paragraphs.Count,
    2- les parcourir à la recherche du 1er style (et j'étendrai au 2ème par la suite) :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    par = 1
    While par < nb_paragraphes
        With ActiveDocument.Paragraphs(par)
            If .Range.Style = "Exi_1" Then

    3- regarder si j'ai déjà un tag :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
                texte_trouve = Selection.Range.Text
                If Left(texte_trouve, 4) = "<ID:" Then      ' l'exigence est déjà taggée, il faut aller à la fin (marquée par "<END>")
                    ' cas non encore traité
                Else                                                       ' pas encore taggé
                    .Range.InsertBefore "<ID:>"
                    .Range.InsertParagraphBefore  'ne s'insère pas au bon emplacement !
    '                nb_paragraphes = nb_paragraphes + 1     'on a inséré un paragraphe, le nombre total est donc augmenté me semble-t-il... mais si je laisse cette ligne j'ai une erreur d'exécution
                    par = par + 1                           'et celui qu'on traitait a donc augmenté de numéro (on a inséré avant)
                End If
            End If
        End With
        par = par + 1
    Wend


    Help please !
    Merci d'avance.

  4. #4
    Expert éminent sénior
    Citation Envoyé par jwsystra Voir le message

    Il n'y a pas de honte, j'ai moi-même pas mal mer... avant d'y arriver (un peu).
    Pour insérer le code, sélectionner le texte et cliquer sur #.
    Mettez un fichier exemple en ligne. Attention, s'il contient du code, zipez-le.

    Le tuto d'Olivier montre comment on sélectionne l'indice d'un paragraphe en étendant la sélection jusqu'au début du document. C'est sur ce principe qu'il faut travailler. En clair, il s'agit de faire une première boucle en partant de la fin et de vérifier l'existence d'une chaîne "<ID" et d'une chaîne "END>" dans chaque paragraphe, de sélectionner ces chaînes et de repérer le nombre de caractères depuis l'origine et mettre le tout dans une matrice pour ensuite dans une deuxième boucle faire les corrections nécessaires et en sélectionnant les chaînes entre les caractères pour chaque enregistrement de la matrice.

    Il y a peut-être d'autres méthodes plus simples mais je ne connais pas.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  5. #5
    Nouveau Candidat au Club
    Bon, j'ai fini par m'en sortir, une fois que j'ai compris comment parcourir mon fichier et insérer du texte (fin de paragraphe comprise). Merci pour l'aide, ça a été *vraiment* précieux.
    Au final je parcours bien du début à la fin (et non l'inverse), en prenant juste garde qu'en insérant des paragraphes leurs numéros d'ordre changent. Et ça fonctionne (même bien).
    Je déposerai le code dès que possible, si ça peut en aider d'autres... Et marquerai le fil comme résolu dans la foulée.
    Encore merci !

###raw>template_hook.ano_emploi###