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.

Envoyé par Eric KERGRESSE

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.

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 !