Discussion :

[elkekou]

Bonjour,

j'essaye de faire un modele de document un peu evolué mais je suis coincé.
Dans l'idée j'essaye d'avoir des champs textes qui se numérote automatiquement (ce ne sont pas forcément des titres) j'ai créé donc inséré un champs dans lequel une "sequence" numérote automatiquement une variable.
Exemple : "V - 1 : problemeA", "V - 2 : problemeB" ,"...". Pour plus de facilité tout ces champs ont le même style

J'aimerais pouvoir générer un tableau qui reprend l'intégralité des champs présent dans mon document auquel je pourrais rajouter des colonnes, l'idée et d'avoir une vue synthétique.
Pour le moment je gère ca en manuelle avec de copier coller avec liaison, mais c'est pas super pratique.

Y aurait-il un moyen de généré ca un peu a la maniere de sommaire?

Vu que c'est un peu compliqué a expliqué je joint un exemple de ce que j'essaye de faire.

Merci d'avance.

[Invité]

Bonjour,

En transformant votre document en .docm, la macro suivante identifie le contenu des champs texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub RepertorierLesChampsTexte()
 
Dim ControlTexte As ContentControl
 
    MsgBox ActiveDocument.Range.ContentControls.Count
 
    For Each ControlTexte In ActiveDocument.Range.ContentControls
        MsgBox ControlTexte.Range.Text
    Next ControlTexte
 
End Sub

Il vous suffirait après avoir déterminé le nombre de ces contrôles dans le document, de créer une table adaptée à votre besoin et de remplir chaque première colonne de chaque ligne avec ControlTexte.Range.Text.

En ce qui concerne la construction d'une table, un exemple dans ce post : faire-liens-word-tableau-synthese

Cordialement.

[elkekou]

Ok merci, je vais regarder ca de plus pret (je ne suis pas familié des macro).

[elkekou]

Bonjour,

j'ai un peu avancé, mais la je suis bloqué sur un leger détail.
J'utilise la fonction .ActiveDocument.SelectContentControlsByTitle("xxx") ce qui me permet de limiter les ContentControl que je récupére.
Dans mon document j'ai 3 famille de CC et pour chaque occurence du premier j'ai les deux autres qui suivent.
CC 1 : Vuln
CC 2 : crit
CC 3 : cout

Du coup je génère mon tableau avec le nombre de colonne/ligne qui me faut, et via 3 boucles successives je récupère mes "Vuln", "crit", "cout"
Cependant l'ordre de récupération semble "aléatoire". Est il possible de dire dans la fonction SelectContentControlsByTitle de prendre les CC dans l'ordre dans lequel ils apparaissent dans le documents?

Exemple our le texte suivant :
V1
Crit : 1
Cout : a

V2
Crit : 2
Cout : b

V3
Crit : 3
Cout : c

J'obtiens le tableau suivant (même résultat sans le tableau en debugant avec du msgbox) :
V1 3 c
V3 1 a
V2 2 b.

[Invité]

Est il possible de dire dans la fonction SelectContentControlsByTitle de prendre les CC dans l'ordre dans lequel ils apparaissent dans le documents?

Bonjour,

Il faudrait mettre votre exemple en ligne pour voir.

Cordialement.

[elkekou]

Merci pour la réponse, pour le coup j'ai trouvé un workaround voila le bout de code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
For Each cc In .Range.ContentControls
            col = 0
            Select Case cc.Title
               Case "Vuln"
                    col = 1
                    Line = Line + 1
               Case "Crit"
                    col = 2
               Case "Cout"
                    col = 3
            End Select
 
            With .Tables(1).Cell(Line, col)
                .Range.Text = cc.Range.Text
            End With
        Next cc

EDIT: si ca peut aider quelqu'un je met en pj le document. NB ; le code est livré tel quel bug gratuit .

[Invité]

Pour le coup j'ai trouvé un workaround voila le bout de code que j'utilise :

Je vous demandais plutôt le fichier exemple sur lequel vous travaillez.

Cordialement.