IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBA Word Discussion :

VBA Word préfixer et suffixer des paragraphes d'un style donné


Sujet :

VBA Word

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Novembre 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : Novembre 2019
    Messages : 3
    Points : 1
    Points
    1
    Par défaut 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
    Invité
    Invité(e)
    Par défaut
    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.

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Novembre 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : Novembre 2019
    Messages : 3
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par Eric KERGRESSE 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.
    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
    Invité
    Invité(e)
    Par défaut
    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.

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Novembre 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : Novembre 2019
    Messages : 3
    Points : 1
    Points
    1
    Par défaut
    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 !

Discussions similaires

  1. [WD-2016] VBA Word - Actualisation automatique titres de paragraphe
    Par cristobees dans le forum VBA Word
    Réponses: 1
    Dernier message: 28/07/2017, 08h34
  2. [WD-2010] Remplacer le contenu de tous les paragraphe d'un style donné
    Par lneaf dans le forum VBA Word
    Réponses: 5
    Dernier message: 02/11/2016, 04h23
  3. Réponses: 5
    Dernier message: 26/04/2011, 19h53
  4. VBA Word mise en forme de paragraphes
    Par millia dans le forum VBA Word
    Réponses: 2
    Dernier message: 16/10/2006, 21h39
  5. [VBA-WORD] je voudrais insérer des images automatiquement.
    Par SharkAngel dans le forum VBA Word
    Réponses: 1
    Dernier message: 21/09/2006, 12h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo