Discussion :

[jwsystra]

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.

[Eric KERGRESSE]

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.

[jwsystra]

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.

[Eric KERGRESSE]

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.

[jwsystra]

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 !